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

[Romain Francoise]

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.97 
emacs/lisp/international/mule-diag.el:1.98
*** emacs/lisp/international/mule-diag.el:1.97  Mon Jul  4 17:22:27 2005
--- emacs/lisp/international/mule-diag.el       Sat Sep 24 13:43:59 2005
***************
*** 598,604 ****
  ;;;###autoload
  (defun describe-coding-system (coding-system)
    "Display information about CODING-SYSTEM."
!   (interactive "zDescribe coding system (default, current choices): ")
    (if (null coding-system)
        (describe-current-coding-system)
      (help-setup-xref (list #'describe-coding-system coding-system)
--- 598,604 ----
  ;;;###autoload
  (defun describe-coding-system (coding-system)
    "Display information about CODING-SYSTEM."
!   (interactive "zDescribe coding system (default current choices): ")
    (if (null coding-system)
        (describe-current-coding-system)
      (help-setup-xref (list #'describe-coding-system coding-system)
***************
*** 1040,1046 ****
  ;;;###autoload
  (defun describe-font (fontname)
    "Display information about fonts which partially match FONTNAME."
!   (interactive "sFontname (default, current choice for ASCII chars): ")
    (or (and window-system (fboundp 'fontset-list))
        (error "No fontsets being used"))
    (when (or (not fontname) (= (length fontname) 0))
--- 1040,1046 ----
  ;;;###autoload
  (defun describe-font (fontname)
    "Display information about fonts which partially match FONTNAME."
!   (interactive "sFontname (default current choice for ASCII chars): ")
    (or (and window-system (fboundp 'fontset-list))
        (error "No fontsets being used"))
    (when (or (not fontname) (= (length fontname) 0))
***************
*** 1137,1143 ****
                          (mapcar 'cdr fontset-alias-alist)))
           (completion-ignore-case t))
         (list (completing-read
!             "Fontset (default, used by the current frame): "
              fontset-list nil t)))))
    (if (= (length fontset) 0)
        (setq fontset (frame-parameter nil 'font)))
--- 1137,1143 ----
                          (mapcar 'cdr fontset-alias-alist)))
           (completion-ignore-case t))
         (list (completing-read
!             "Fontset (default used by the current frame): "
              fontset-list nil t)))))
    (if (= (length fontset) 0)
        (setq fontset (frame-parameter nil 'font)))