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

diff --git a/lisp/faces.el b/lisp/faces.el
index fcac684b3a1425510489a9cff792349b8b821240..dc94beb4aa6136a594a7a80783e2e1548de108f4 100644 (file)
--- 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)