# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775515817 0
# Node ID 4ac21edb9f7844a41c8de245f24521e6929c8d07
# Parent  b84147ed033dca83b32a4ee7ce943f57d7e1b621
(face-initialize): Use underlining for region face
if there's no gray.
(face-try-color-list): Support `underline' in color list.

diff -r b84147ed033d -r 4ac21edb9f78 lisp/faces.el
--- a/lisp/faces.el	Fri Jul 29 20:33:17 1994 +0000
+++ b/lisp/faces.el	Fri Jul 29 21:03:37 1994 +0000
@@ -781,7 +781,7 @@
   (make-face-bold-italic 'bold-italic t)
 
   (set-face-background 'highlight '("darkseagreen2" "green" t) t)
-  (set-face-background 'region '("gray" t) t)
+  (set-face-background 'region '("gray" underline) t)
   (set-face-background 'secondary-selection '("paleturquoise" "green" t) t)
   (set-face-background 'modeline '(t) t)
   (set-face-underline-p 'underline t t)
@@ -924,16 +924,22 @@
 		;; and set `done' if we succeed.
 		(condition-case nil
 		    (progn
-		      (if (eq (car colors) t)
-			  (invert-face face frame)
-			(funcall function face (car colors) frame))
+		      (cond ((eq (car colors) t)
+			     (invert-face face frame))
+			    ((eq (car colors) 'underline)
+			     (set-face-underline-p face t frame))
+			    (t
+			     (funcall function face (car colors) frame)))
 		      (setq done t))
 		  (error nil))
 	      ;; If this is the last color, let the error get out if it fails.
 	      ;; If it succeeds, we will exit anyway after this iteration.
-	      (if (eq (car colors) t)
-		  (invert-face face frame)
-		(funcall function face (car colors) frame))))
+	      (cond ((eq (car colors) t)
+		     (invert-face face frame))
+		    ((eq (car colors) 'underline)
+		     (set-face-underline-p face t frame))
+		    (t
+		     (funcall function face (car colors) frame)))))
 	  (setq colors (cdr colors)))))))
 
 ;; If we are already using x-window frames, initialize faces for them.