From de52827f3ff67f8674e32eaeea37cc4a18409c17 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 10 Jan 1995 06:52:53 +0000
Subject: [PATCH] (face-try-color-list): Treat `underline' as valid.

---
 lisp/faces.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
2.39.5