diff options
| author | Richard M. Stallman | 1997-09-07 06:51:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-07 06:51:34 +0000 |
| commit | e14a8f4c5977edc3cd9f4168f5c7f81abf3da3d2 (patch) | |
| tree | ed1db77c41ff71c7ab9bf484d26918cf9420ddb0 | |
| parent | 4ddd2beb6733219462026b4f20a8ca427585bea3 (diff) | |
| download | emacs-e14a8f4c5977edc3cd9f4168f5c7f81abf3da3d2.tar.gz emacs-e14a8f4c5977edc3cd9f4168f5c7f81abf3da3d2.zip | |
(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." | |||
| 168 | (defun universal-coding-system-argument () | 168 | (defun universal-coding-system-argument () |
| 169 | "Execute an I/O command using the specified coding system." | 169 | "Execute an I/O command using the specified coding system." |
| 170 | (interactive) | 170 | (interactive) |
| 171 | (let* ((coding-system (read-coding-system "Coding system: ")) | 171 | (let* ((coding-system (read-coding-system "Coding system for following command: ")) |
| 172 | (keyseq (read-key-sequence | 172 | (keyseq (read-key-sequence |
| 173 | (format "With coding system %s:" coding-system))) | 173 | (format "Command to execute with %s:" coding-system))) |
| 174 | (cmd (key-binding keyseq))) | 174 | (cmd (key-binding keyseq))) |
| 175 | (let ((coding-system-for-read coding-system) | 175 | (let ((coding-system-for-read coding-system) |
| 176 | (coding-system-for-write coding-system)) | 176 | (coding-system-for-write coding-system)) |