[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Richard M. Stallman]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.202 
emacs/lisp/international/mule-cmds.el:1.203
*** emacs/lisp/international/mule-cmds.el:1.202 Sat Aug 10 21:04:41 2002
--- emacs/lisp/international/mule-cmds.el       Thu Sep 12 22:15:41 2002
***************
*** 261,279 ****
        (coding-system-for-read 'iso-2022-7bit))
      (find-file-read-only (expand-file-name "HELLO" data-directory))))
  
! (defun universal-coding-system-argument ()
    "Execute an I/O command using the specified 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
                  (format "Command to execute with %s:" coding-system)))
         (cmd (key-binding keyseq))
         prefix)
--- 261,279 ----
        (coding-system-for-read 'iso-2022-7bit))
      (find-file-read-only (expand-file-name "HELLO" data-directory))))
  
! (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
                       (not (eq (coding-system-type buffer-file-coding-system)
                                t))
!                      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)