Mercurial > emacs
changeset 8377:4ac21edb9f78
(face-initialize): Use underlining for region face
if there's no gray.
(face-try-color-list): Support `underline' in color list.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 29 Jul 1994 21:03:37 +0000 |
| parents | b84147ed033d |
| children | dd0a2dd71ad3 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 13 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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.