diff options
| author | Kenichi Handa <handa@m17n.org> | 2008-08-06 12:19:35 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2008-08-06 12:19:35 +0000 |
| commit | e83eedbf8dc964366e4efe39a4f1fc7a412c1b42 (patch) | |
| tree | 981812a83bef682f4ebdebaa7d340e12f29cac8c /lisp/faces.el | |
| parent | 295b47d8c594eabd110e08c6e6462f1200e5b89e (diff) | |
| download | emacs-e83eedbf8dc964366e4efe39a4f1fc7a412c1b42.tar.gz | |
(face-valid-attribute-values): Fix handling the value
of (font-family-list) and font-XXX-table.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 76bb02939f5..4151885819e 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -978,20 +978,20 @@ an integer value." (case attribute (:family (if (window-system frame) - (mapcar #'(lambda (x) (cons (car x) (car x))) + (mapcar #'(lambda (x) (cons (symbol-name x) x)) (font-family-list)) ;; Only one font on TTYs. (list (cons "default" "default")))) (:foundry (list nil)) (:width - (mapcar #'(lambda (x) (cons (symbol-name (car x)) (car x))) + (mapcar #'(lambda (x) (cons (symbol-name (aref x 1)) (aref x 1))) font-width-table)) (:weight - (mapcar #'(lambda (x) (cons (symbol-name (car x)) (car x))) + (mapcar #'(lambda (x) (cons (symbol-name (aref x 1)) (aref x 1))) font-weight-table)) (:slant - (mapcar #'(lambda (x) (cons (symbol-name (car x)) (car x))) + (mapcar #'(lambda (x) (cons (symbol-name (aref x 1)) (aref x 1))) font-slant-table)) (:inverse-video (mapcar #'(lambda (x) (cons (symbol-name x) x)) |