(universal-coding-system-argument): Improve prompt strings.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index d59db76a47d35641c973f577f423310e1c6da10b..1c415ed1edf6338262dce7492ef2473d35172dfe 100644 (file)
--- 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))