diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-07 06:51:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-07 06:51:34 +0000 |
| commit | 4f16f9fc74b08a0ce417cb80b86d488ea1ea9852 (patch) | |
| tree | 67ce0dc3226f6b70d642b4e86bd7328d703f000f | |
| parent | 07ca6b6d00d715868738a282a5396fb52cdf4994 (diff) | |
| download | emacs-4f16f9fc74b08a0ce417cb80b86d488ea1ea9852.tar.gz | |
(universal-coding-system-argument): Improve prompt strings.
| -rw-r--r-- | lisp/international/mule-cmds.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index d59db76a47d..1c415ed1edf 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -168,9 +168,9 @@ With arg, make them enable iff arg is positive." (defun universal-coding-system-argument () "Execute an I/O command using the specified coding system." (interactive) - (let* ((coding-system (read-coding-system "Coding system: ")) + (let* ((coding-system (read-coding-system "Coding system for following command: ")) (keyseq (read-key-sequence - (format "With coding system %s:" coding-system))) + (format "Command to execute with %s:" coding-system))) (cmd (key-binding keyseq))) (let ((coding-system-for-read coding-system) (coding-system-for-write coding-system)) |