From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 10 Jan 1995 06:52:53 +0000 (+0000)
Subject: (face-try-color-list): Treat `underline' as valid.
X-Git-Tag: emacs-19.34~5483
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=de52827f3ff67f8674e32eaeea37cc4a18409c17;p=emacs.git

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

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)