From 736e2c341dbc48506fe6e004add5a93f5fe434c4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 29 Jul 1994 21:03:37 +0000 Subject: (face-initialize): Use underlining for region face if there's no gray. (face-try-color-list): Support `underline' in color list. --- lisp/faces.el | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) (limited to 'lisp/faces.el') diff --git a/lisp/faces.el b/lisp/faces.el index 02de5dcc8a1..6eb43677408 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -781,7 +781,7 @@ selected frame." (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 @@ selected frame." ;; 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. -- cgit v1.2.1