changeset 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 9dc2ae3f910a
children 96c3254c37c5
files lisp/faces.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
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)