mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(face-valid-attribute-values): Use string as value for :family

Browse Source 
attribute.  Now, font-family-list returns a list of strings.
(x-font-family-list): Obsolete compatibility version of function
from xfaces.c.
This commit is contained in:
Chong Yidong 2009-01-09 14:11:12 +00:00
parent 45c1781184
commit 95ac8fbdca
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/faces.el
View File

@ -988,7 +988,7 @@ an integer value."
(case attribute
(:family
(if (window-system frame)
(mapcar #'(lambda (x) (cons (symbol-name x) x))
(mapcar (lambda (x) (cons x x))
(font-family-list))
;; Only one font on TTYs.
(list (cons "default" "default"))))
@ -2681,6 +2681,18 @@ If that can't be done, return nil."
(internal-frob-font-slant font "i")))
(make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic "21.1")
(defun x-font-family-list (&optional frame)
"Return a list of available font families on FRAME.
If FRAME is omitted or nil, use the selected frame.
Value is a list of conses (FAMILY . FIXED-P) where FAMILY
is a font family, and FIXED-P is non-nil if fonts of that family
are fixed-pitch."
(if (fboundp 'font-family-list)
(mapcar (lambda (family) (cons family nil))
(font-family-list))
'(("default" . t))))
(make-obsolete 'x-font-family-list 'font-family-list "23.1")
(provide 'faces)
;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6