Mercurial > emacs

comparison lisp/international/mule-diag.el @ 90233:ee12d75eb214

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-85 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 556-561) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 122-124) - Update from CVS: lisp/mm-url.el (mm-url-decode-entities): Fix regexp. - Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 25 Sep 2005 22:07:01 +0000
parents f9a65d7ebd29 ed770a0a7846
children 7f3f771c85fa
comparison
equal deleted inserted replaced
90232:eab32348047a 90233:ee12d75eb214
417 (setq charset (cdr charset))))))) 417 (setq charset (cdr charset)))))))
418 418
419 ;;;###autoload 419 ;;;###autoload
420 (defun describe-coding-system (coding-system) 420 (defun describe-coding-system (coding-system)
421 "Display information about CODING-SYSTEM." 421 "Display information about CODING-SYSTEM."
422 (interactive "zDescribe coding system (default, current choices): ") 422 (interactive "zDescribe coding system (default current choices): ")
423 (if (null coding-system) 423 (if (null coding-system)
424 (describe-current-coding-system) 424 (describe-current-coding-system)
425 (help-setup-xref (list #'describe-coding-system coding-system) 425 (help-setup-xref (list #'describe-coding-system coding-system)
426 (interactive-p)) 426 (interactive-p))
427 (with-output-to-temp-buffer (help-buffer) 427 (with-output-to-temp-buffer (help-buffer)
829 (print-list "relative-compose:" (format "%2d" (aref font-info 5)))) 829 (print-list "relative-compose:" (format "%2d" (aref font-info 5))))
830 830
831 ;;;###autoload 831 ;;;###autoload
832 (defun describe-font (fontname) 832 (defun describe-font (fontname)
833 "Display information about fonts which partially match FONTNAME." 833 "Display information about fonts which partially match FONTNAME."
834 (interactive "sFontname (default, current choice for ASCII chars): ") 834 (interactive "sFontname (default current choice for ASCII chars): ")
835 (or (and window-system (fboundp 'fontset-list)) 835 (or (and window-system (fboundp 'fontset-list))
836 (error "No fontsets being used")) 836 (error "No fontsets being used"))
837 (when (or (not fontname) (= (length fontname) 0)) 837 (when (or (not fontname) (= (length fontname) 0))
838 (setq fontname (cdr (assq 'font (frame-parameters)))) 838 (setq fontname (cdr (assq 'font (frame-parameters))))
839 (if (query-fontset fontname) 839 (if (query-fontset fontname)
919 (let ((fontset-list (nconc 919 (let ((fontset-list (nconc
920 (fontset-list) 920 (fontset-list)
921 (mapcar 'cdr fontset-alias-alist))) 921 (mapcar 'cdr fontset-alias-alist)))
922 (completion-ignore-case t)) 922 (completion-ignore-case t))
923 (list (completing-read 923 (list (completing-read
924 "Fontset (default, used by the current frame): " 924 "Fontset (default used by the current frame): "
925 fontset-list nil t))))) 925 fontset-list nil t)))))
926 (if (= (length fontset) 0) 926 (if (= (length fontset) 0)
927 (setq fontset (frame-parameter nil 'font))) 927 (setq fontset (frame-parameter nil 'font)))
928 (setq fontset (query-fontset fontset)) 928 (setq fontset (query-fontset fontset))
929 (help-setup-xref (list #'describe-fontset fontset) (interactive-p)) 929 (help-setup-xref (list #'describe-fontset fontset) (interactive-p))