martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(face-spec-set): Interpret a nil in specs for

Browse Source 
foreground and background colors as `unspecified', for
compatibility with 20.x.
This commit is contained in:
Gerd Moellmann
2000-12-18 15:05:02 +00:00
parent c5dfddb64f
commit c242484757
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/faces.el
View File

@@ -1230,6 +1230,10 @@ If SPEC is nil, do nothing."
(case attribute
(:bold (setq attribute :weight value (if value 'bold 'normal)))
(:italic (setq attribute :slant value (if value 'italic 'normal)))
((:foreground :background)
;; Compatibility with 20.x. Some bogus face specs seem to
;; exist containing things like `:foreground nil'.
(if (null value) (setq value 'unspecified)))
(t (unless (assq attribute face-x-resources)
(setq attribute nil))))
(when attribute