changeset 10375:8652c7b84a5f

(face-try-color-list): Treat `underline' as valid.
author Richard M. Stallman <rms@gnu.org>
date Tue, 10 Jan 1995 06:52:53 +0000
parents d6de68b87cbd
children b1c4515958b6
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue Jan 10 03:14:24 1995 +0000
+++ b/lisp/faces.el	Tue Jan 10 06:52:53 1995 +0000
@@ -1048,7 +1048,7 @@
 	(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)