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

[Romain Francoise]

Index: emacs/lisp/international/mule.el
diff -c emacs/lisp/international/mule.el:1.225 
emacs/lisp/international/mule.el:1.226
*** emacs/lisp/international/mule.el:1.225      Tue Jul 19 02:30:29 2005
--- emacs/lisp/international/mule.el    Sat Sep 24 13:43:59 2005
***************
*** 1159,1165 ****
  don't want to mark the buffer modified, specify t for NOMODIFY.
  If you know exactly what coding system you want to use,
  just set the variable `buffer-file-coding-system' directly."
!   (interactive "zCoding system for saving file (default, nil): \nP")
    (check-coding-system coding-system)
    (if (and coding-system buffer-file-coding-system (null force))
        (setq coding-system
--- 1159,1165 ----
  don't want to mark the buffer modified, specify t for NOMODIFY.
  If you know exactly what coding system you want to use,
  just set the variable `buffer-file-coding-system' directly."
!   (interactive "zCoding system for saving file (default nil): \nP")
    (check-coding-system coding-system)
    (if (and coding-system buffer-file-coding-system (null force))
        (setq coding-system
***************
*** 1183,1189 ****
  buffer's previous `buffer-file-coding-system' value (if it is
  specified there).  Otherwise, determine it from the file contents as
  usual for visiting a file."
!   (interactive "zCoding system for visited file (default, nil): \nP")
    (check-coding-system coding-system)
    (if (and coding-system buffer-file-coding-system (null force))
        (setq coding-system
--- 1183,1189 ----
  buffer's previous `buffer-file-coding-system' value (if it is
  specified there).  Otherwise, determine it from the file contents as
  usual for visiting a file."
!   (interactive "zCoding system for visited file (default nil): \nP")
    (check-coding-system coding-system)
    (if (and coding-system buffer-file-coding-system (null force))
        (setq coding-system
***************
*** 1195,1201 ****
    "Set coding system for decoding and encoding file names to CODING-SYSTEM.
  It actually just set the variable `file-name-coding-system' (which
  see) to CODING-SYSTEM."
!   (interactive "zCoding system for file names (default, nil): ")
    (check-coding-system coding-system)
    (if (and coding-system
           (coding-system-get coding-system 'ascii-incompatible))
--- 1195,1201 ----
    "Set coding system for decoding and encoding file names to CODING-SYSTEM.
  It actually just set the variable `file-name-coding-system' (which
  see) to CODING-SYSTEM."
!   (interactive "zCoding system for file names (default nil): ")
    (check-coding-system coding-system)
    (if (and coding-system
           (coding-system-get coding-system 'ascii-incompatible))
***************
*** 1219,1225 ****
                                 default-terminal-coding-system)
                            default-terminal-coding-system)))
           (read-coding-system
!           (format "Coding system for terminal display (default, %s): "
                    default)
            default))))
    (if (and (not coding-system)
--- 1219,1225 ----
                                 default-terminal-coding-system)
                            default-terminal-coding-system)))
           (read-coding-system
!           (format "Coding system for terminal display (default %s): "
                    default)
            default))))
    (if (and (not coding-system)
***************
*** 1248,1254 ****
                                 default-keyboard-coding-system)
                            default-keyboard-coding-system)))
           (read-coding-system
!           (format "Coding system for keyboard input (default, %s): "
                    default)
            default))))
    (if (and (not coding-system)
--- 1248,1254 ----
                                 default-keyboard-coding-system)
                            default-keyboard-coding-system)))
           (read-coding-system
!           (format "Coding system for keyboard input (default %s): "
                    default)
            default))))
    (if (and (not coding-system)
***************
*** 1321,1327 ****
    (interactive
     (list (read-coding-system
          (if last-next-selection-coding-system
!             (format "Coding system for the next X selection (default, %S): "
                      last-next-selection-coding-system)
            "Coding system for the next X selection: ")
          last-next-selection-coding-system)))
--- 1321,1327 ----
    (interactive
     (list (read-coding-system
          (if last-next-selection-coding-system
!             (format "Coding system for the next X selection (default %S): "
                      last-next-selection-coding-system)
            "Coding system for the next X selection: ")
          last-next-selection-coding-system)))