diff lisp/faces.el @ 63555:c449f070995c

(underline): Try bold if terminal doesn't support underline.
author Richard M. Stallman <rms@gnu.org>
date Fri, 17 Jun 2005 14:30:55 +0000
parents 9cbfa983c1cf
children 4c33b0ac74a3 c016d82bf02b
line wrap: on
line diff
--- a/lisp/faces.el	Fri Jun 17 14:29:21 2005 +0000
+++ b/lisp/faces.el	Fri Jun 17 14:30:55 2005 +0000
@@ -2035,7 +2035,11 @@
   :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)