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

[Romain Francoise]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.282 
emacs/lisp/international/mule-cmds.el:1.283
*** emacs/lisp/international/mule-cmds.el:1.282 Fri Sep 23 02:12:37 2005
--- emacs/lisp/international/mule-cmds.el       Sat Sep 24 13:43:59 2005
***************
*** 278,284 ****
                       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
--- 278,284 ----
                       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
***************
*** 616,622 ****
    (interactive
     (list (let ((default (or buffer-file-coding-system 'us-ascii)))
           (read-coding-system
!           (format "Coding-system (default, %s): " default)
            default))))
    (let ((pos (unencodable-char-position (point) (point-max) coding-system)))
      (if pos
--- 616,622 ----
    (interactive
     (list (let ((default (or buffer-file-coding-system 'us-ascii)))
           (read-coding-system
!           (format "Coding-system (default %s): " default)
            default))))
    (let ((pos (unencodable-char-position (point) (point-max) coding-system)))
      (if pos
***************
*** 1490,1496 ****
    "Describe input method INPUT-METHOD."
    (interactive
     (list (read-input-method-name
!         "Describe input method (default, current choice): ")))
    (if (and input-method (symbolp input-method))
        (setq input-method (symbol-name input-method)))
    (help-setup-xref (list #'describe-input-method
--- 1490,1496 ----
    "Describe input method INPUT-METHOD."
    (interactive
     (list (read-input-method-name
!         "Describe input method (default current choice): ")))
    (if (and input-method (symbolp input-method))
        (setq input-method (symbol-name input-method)))
    (help-setup-xref (list #'describe-input-method
***************
*** 1810,1816 ****
  specifies the character set for the major languages of Western Europe."
    (interactive (list (read-language-name
                      nil
!                     "Set language environment (default, English): ")))
    (if language-name
        (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
--- 1810,1816 ----
  specifies the character set for the major languages of Western Europe."
    (interactive (list (read-language-name
                      nil
!                     "Set language environment (default English): ")))
    (if language-name
        (if (symbolp language-name)
          (setq language-name (symbol-name language-name)))
***************
*** 1986,1992 ****
    (interactive
     (list (read-language-name
          'documentation
!         "Describe language environment (default, current choice): ")))
    (if (null language-name)
        (setq language-name current-language-environment))
    (if (or (null language-name)
--- 1986,1992 ----
    (interactive
     (list (read-language-name
          'documentation
!         "Describe language environment (default current choice): ")))
    (if (null language-name)
        (setq language-name current-language-environment))
    (if (or (null language-name)
***************
*** 2014,2020 ****
              (l (copy-sequence input-method-alist)))
          (insert "Input methods")
          (when input-method
!           (insert " (default, " input-method ")")
            (setq input-method (assoc input-method input-method-alist))
            (setq l (cons input-method (delete input-method l))))
          (insert ":\n")
--- 2014,2020 ----
              (l (copy-sequence input-method-alist)))
          (insert "Input methods")
          (when input-method
!           (insert " (default " input-method ")")
            (setq input-method (assoc input-method input-method-alist))
            (setq l (cons input-method (delete input-method l))))
          (insert ":\n")