Mercurial > hg > xemacs-beta

comparison lisp/x-font-menu.el @ 2297:13a418960a88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-22 02:05:42 by stephent] various doc patches <87isa7awrh.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 22 Sep 2004 02:06:52 +0000
parents a1e328407366
children 491f8cf78a9c
comparison
equal deleted inserted replaced
2296:a58ea4d0d0cd 2297:13a418960a88
1 ;; x-font-menu.el --- Managing menus of X fonts. 1 ;;; x-font-menu.el --- Managing menus of X fonts.
2 2
3 ;; Copyright (C) 1994 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. 4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
5 ;; Copyright (C) 1997 Sun Microsystems 5 ;; Copyright (C) 1997 Sun Microsystems
6 6
34 34
35 (require 'font-menu) 35 (require 'font-menu)
36 36
37 (globally-declare-boundp 37 (globally-declare-boundp
38 '(x-font-regexp 38 '(x-font-regexp
39 x-font-regexp-foundry-and-family x-font-regexp-spacing)) 39 x-font-regexp-foundry-and-family
40 x-font-regexp-spacing))
40 41
41 (globally-declare-fboundp 42 (globally-declare-fboundp
42 '(charset-registry)) 43 '(charset-registry))
43 44
44 (defvar x-font-menu-registry-encoding nil 45 (defvar x-font-menu-registry-encoding nil
53 ; font family for each font face! Losers. 54 ; font family for each font face! Losers.
54 ; "Axcor" -> "Applix Courier Roman", 55 ; "Axcor" -> "Applix Courier Roman",
55 ; "Axcob" -> "Applix Courier Bold", etc. 56 ; "Axcob" -> "Applix Courier Bold", etc.
56 ) 57 )
57 "\\|") 58 "\\|")
58 "A regexp matching font families which are uninteresting (e.g. cursor fonts).") 59 "Regexp matching font families which should not be menu-selectable.
60 E.g. cursor fonts.")
59 61
60 (defun hack-font-truename (fn) 62 (defun hack-font-truename (fn)
61 "Filter the output of `font-instance-truename' to deal with Japanese fontsets." 63 ;; #### Are "font sets" XFontSets?
64 ;; #### Is this useful if not configure'd --with-xfs?
65 ;; #### This is duplicated in gtk-font-menu.el.
66 "Filter the output of `font-instance-truename' to deal with font sets."
62 (if (string-match "," (font-instance-truename fn)) 67 (if (string-match "," (font-instance-truename fn))
63 (let ((fpnt (nth 8 (split-string (font-instance-name fn) "-"))) 68 (let ((fpnt (nth 8 (split-string (font-instance-name fn) "-")))
64 (flist (split-string (font-instance-truename fn) ",")) 69 (flist (split-string (font-instance-truename fn) ","))
65 ret) 70 ret)
66 (while flist 71 (while flist