[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el
From: |
Romain Francoise |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el |
Date: |
Sat, 24 Sep 2005 09:44:17 -0400 |
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el,
Romain Francoise <=