diff options
| author | Richard M. Stallman | 1995-01-10 06:52:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-10 06:52:53 +0000 |
| commit | de52827f3ff67f8674e32eaeea37cc4a18409c17 (patch) | |
| tree | fed4af9c25f4b059a246349e81261f655d242d5c | |
| parent | 3299201797f081631826981346ffc670dc34127a (diff) | |
| download | emacs-de52827f3ff67f8674e32eaeea37cc4a18409c17.tar.gz emacs-de52827f3ff67f8674e32eaeea37cc4a18409c17.zip | |
(face-try-color-list): Treat `underline' as valid.
| -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." | |||
| 1048 | (invert-face face frame) | 1048 | (invert-face face frame) |
| 1049 | (let (done) | 1049 | (let (done) |
| 1050 | (while (and colors (not done)) | 1050 | (while (and colors (not done)) |
| 1051 | (if (or (eq (car colors) t) | 1051 | (if (or (memq (car colors) '(t underline)) |
| 1052 | (face-color-supported-p frame (car colors) | 1052 | (face-color-supported-p frame (car colors) |
| 1053 | (eq function 'set-face-background))) | 1053 | (eq function 'set-face-background))) |
| 1054 | (if (cdr colors) | 1054 | (if (cdr colors) |