(universal-coding-system-argument):

Read the coding system inside `interactive' spec, for command-history.

1 files changed, 10 insertions, 10 deletions

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index b1bb4f2825..4eaf6184a9 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -261,19 +261,19 @@ wrong, use this command again to toggle back to the right mode."
 	(coding-system-for-read 'iso-2022-7bit))
     (find-file-read-only (expand-file-name "HELLO" data-directory))))
 
-(defun universal-coding-system-argument ()
+(defun universal-coding-system-argument (coding-system)
   "Execute an I/O command using the specified coding system."
-  (interactive)
-  (let* ((default (and buffer-file-coding-system
+  (interactive
+   (let ((default (and buffer-file-coding-system
 		       (not (eq (coding-system-type buffer-file-coding-system)
 				t))
-		       buffer-file-coding-system))
-	 (coding-system (read-coding-system
-			 (if default
-			     (format "Coding system for following command (default, %s): " default)
-			   "Coding system for following command: ")
-			 default))
-	 (keyseq (read-key-sequence
+		       buffer-file-coding-system)))
+     (list (read-coding-system
+	    (if default
+		(format "Coding system for following command (default, %s): " default)
+	      "Coding system for following command: ")
+	    default))))
+  (let* ((keyseq (read-key-sequence
 		  (format "Command to execute with %s:" coding-system)))
 	 (cmd (key-binding keyseq))
 	 prefix)