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

diff --git a/lisp/faces.el b/lisp/faces.el
index 8b0741658ff09443951c9c8c280be30a81f168c4..7877a26db524e7b0143621ae8add3e7adb6d73ae 100644 (file)
--- 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)