aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2000-07-03 13:47:23 +0000
committerGerd Moellmann2000-07-03 13:47:23 +0000
commitc96308624cadb232feea1ef98246dec7e801ea9b (patch)
tree27d593d85280e2c8452937bda6ffae24edf368f7
parent4c2ca4f329e16fca4bd3b23c22b45130a29a4ee6 (diff)
downloademacs-c96308624cadb232feea1ef98246dec7e801ea9b.tar.gz
emacs-c96308624cadb232feea1ef98246dec7e801ea9b.zip
(face-spec-set): Ignore invalid attributes like 20.x.
(face-x-resources): Remove duplicate entry for :font.
-rw-r--r--lisp/faces.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/faces.el b/lisp/faces.el
index 3dc579ec0cc..0cec44b94d2 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -263,7 +263,6 @@ If FRAME is omitted or nil, use the selected frame."
263 (:stipple 263 (:stipple
264 (".attributeStipple" . "Face.AttributeStipple") 264 (".attributeStipple" . "Face.AttributeStipple")
265 (".attributeBackgroundPixmap" . "Face.AttributeBackgroundPixmap")) 265 (".attributeBackgroundPixmap" . "Face.AttributeBackgroundPixmap"))
266 (:font (".attributeFont" . "Face.AttributeFont"))
267 (:bold (".attributeBold" . "Face.AttributeBold")) 266 (:bold (".attributeBold" . "Face.AttributeBold"))
268 (:italic (".attributeItalic" . "Face.AttributeItalic")) 267 (:italic (".attributeItalic" . "Face.AttributeItalic"))
269 (:font (".attributeFont" . "Face.AttributeFont"))) 268 (:font (".attributeFont" . "Face.AttributeFont")))
@@ -1167,8 +1166,11 @@ do it on all frames. See `defface' for information about SPEC."
1167 ;; Support some old-style attribute names and values. 1166 ;; Support some old-style attribute names and values.
1168 (case attribute 1167 (case attribute
1169 (:bold (setq attribute :weight value (if value 'bold 'normal))) 1168 (:bold (setq attribute :weight value (if value 'bold 'normal)))
1170 (:italic (setq attribute :slant value (if value 'italic 'normal)))) 1169 (:italic (setq attribute :slant value (if value 'italic 'normal)))
1171 (setq params (cons attribute (cons value params)))) 1170 (t (unless (assq attribute face-x-resources)
1171 (setq attribute nil))))
1172 (when attribute
1173 (setq params (cons attribute (cons value params)))))
1172 (setq attrs (cdr (cdr attrs)))) 1174 (setq attrs (cdr (cdr attrs))))
1173 (face-spec-reset-face face frame) 1175 (face-spec-reset-face face frame)
1174 (apply #'set-face-attribute face frame params))) 1176 (apply #'set-face-attribute face frame params)))