Mercurial > hg > xemacs-beta

comparison lisp/gtk-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 8b464283e891
children 491f8cf78a9c
comparison
equal deleted inserted replaced
2296:a58ea4d0d0cd 2297:13a418960a88
26 ;; along with XEmacs; see the file COPYING. If not, write to the 26 ;; along with XEmacs; see the file COPYING. If not, write to the
27 ;; Free Software Foundation, 59 Temple Place - Suite 330, 27 ;; Free Software Foundation, 59 Temple Place - Suite 330,
28 ;; Boston, MA 02111-1307, USA. 28 ;; Boston, MA 02111-1307, USA.
29 ;;; Code: 29 ;;; Code:
30 30
31 ;; #### - The comment that this file was GTK-ized by Wm Perry is a lie;
32 ;; nothing was done except to rename everything that was x- to gtk-.
33 ;; This is harmless, but we should reintegrate so that GTK can take
34 ;; advantage of fontconfig, too, I think.
35
31 ;; #### - implement these... 36 ;; #### - implement these...
32 ;; 37 ;;
33 ;;; (defvar font-menu-ignore-proportional-fonts nil 38 ;;; (defvar font-menu-ignore-proportional-fonts nil
34 ;;; "*If non-nil, then the font menu will only show fixed-width fonts.") 39 ;;; "*If non-nil, then the font menu will only show fixed-width fonts.")
35 40
36 (require 'font-menu) 41 (require 'font-menu)
37 42
38 (globally-declare-boundp 43 (globally-declare-boundp
39 '(gtk-font-regexp 44 '(gtk-font-regexp
40 gtk-font-regexp-foundry-and-family gtk-font-regexp-spacing)) 45 gtk-font-regexp-foundry-and-family
46 gtk-font-regexp-spacing))
41 47
42 (defvar gtk-font-menu-registry-encoding nil 48 (defvar gtk-font-menu-registry-encoding nil
43 "Registry and encoding to use with font menu fonts.") 49 "Registry and encoding to use with font menu fonts.")
44 50
45 (defvar gtk-fonts-menu-junk-families 51 (defvar gtk-fonts-menu-junk-families
54 ) 60 )
55 "\\|") 61 "\\|")
56 "A regexp matching font families which are uninteresting (e.g. cursor fonts).") 62 "A regexp matching font families which are uninteresting (e.g. cursor fonts).")
57 63
58 (defun hack-font-truename (fn) 64 (defun hack-font-truename (fn)
59 "Filter the output of `font-instance-truename' to deal with Japanese fontsets." 65 ;; #### This is duplicated from x-font-menu.el.
66 "Filter the output of `font-instance-truename' to deal with font sets."
60 (if (string-match "," (font-instance-truename fn)) 67 (if (string-match "," (font-instance-truename fn))
61 (let ((fpnt (nth 8 (split-string (font-instance-name fn) "-"))) 68 (let ((fpnt (nth 8 (split-string (font-instance-name fn) "-")))
62 (flist (split-string (font-instance-truename fn) ",")) 69 (flist (split-string (font-instance-truename fn) ","))
63 ret) 70 ret)
64 (while flist 71 (while flist