(underline): Try bold if terminal doesn't support underline.

21862425 · Richard M. Stallman · 043f95ab · 21862425
Commit 21862425 authored Jun 17, 2005 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletion

lisp/faces.el lisp/faces.el +5 -1

No files found.
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -2035,7 +2035,11 @@ Note: Other faces cannot inherit from the cursor face."
  :group 'basic-faces)


-(defface underline '((t :underline t))
+(defface underline '((((supports :underline t))
+		      :underline t)
+		     (((supports :weight bold))
+		      :weight bold)
+		     (t :underline t))
  "Basic underlined face."
  :group 'basic-faces)