diff options
| author | Gerd Moellmann | 2000-07-03 13:47:23 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-07-03 13:47:23 +0000 |
| commit | c96308624cadb232feea1ef98246dec7e801ea9b (patch) | |
| tree | 27d593d85280e2c8452937bda6ffae24edf368f7 | |
| parent | 4c2ca4f329e16fca4bd3b23c22b45130a29a4ee6 (diff) | |
| download | emacs-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.el | 8 |
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))) |