diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-10 06:52:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-10 06:52:53 +0000 |
| commit | a05775636e0787d52e49725e60ea0802a25ad637 (patch) | |
| tree | ac47477ae4470a1fbdf260004c80892192c67a02 /lisp/faces.el | |
| parent | 43a7eaa54ec94b3c126ee0ca6d57929f76b89867 (diff) | |
| download | emacs-a05775636e0787d52e49725e60ea0802a25ad637.tar.gz | |
(face-try-color-list): Treat `underline' as valid.
Diffstat (limited to 'lisp/faces.el')
| -rw-r--r-- | lisp/faces.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 8b0741658ff..7877a26db52 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -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) |