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

(face-try-color-list): Treat `underline' as valid.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-01-10 06:52:53 +00:00
parent 3299201797
commit de52827f3f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/faces.el
View File

@ -1048,7 +1048,7 @@ selected frame."
(invert-face face frame)
(let (done)
(while (and colors (not done))
(if (or (eq (car colors) t)
(if (or (memq (car colors) '(t underline))
(face-color-supported-p frame (car colors)
(eq function 'set-face-background)))
(if (cdr colors)