mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(face-spec-set): Ignore invalid attributes like 20.x.

Browse Source 
(face-x-resources): Remove duplicate entry for :font.
This commit is contained in:
Gerd Moellmann 2000-07-03 13:47:23 +00:00
parent 4c2ca4f329
commit c96308624c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/faces.el
View File

@ -263,7 +263,6 @@ If FRAME is omitted or nil, use the selected frame."
(:stipple
(".attributeStipple" . "Face.AttributeStipple")
(".attributeBackgroundPixmap" . "Face.AttributeBackgroundPixmap"))
(:font (".attributeFont" . "Face.AttributeFont"))
(:bold (".attributeBold" . "Face.AttributeBold"))
(:italic (".attributeItalic" . "Face.AttributeItalic"))
(:font (".attributeFont" . "Face.AttributeFont")))
@ -1167,8 +1166,11 @@ do it on all frames. See `defface' for information about SPEC."
;; Support some old-style attribute names and values.
(case attribute
(:bold (setq attribute :weight value (if value 'bold 'normal)))
(:italic (setq attribute :slant value (if value 'italic 'normal))))
(setq params (cons attribute (cons value params))))
(:italic (setq attribute :slant value (if value 'italic 'normal)))
(t (unless (assq attribute face-x-resources)
(setq attribute nil))))
(when attribute
(setq params (cons attribute (cons value params)))))
(setq attrs (cdr (cdr attrs))))
(face-spec-reset-face face frame)
(apply #'set-face-attribute face frame params)))