# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1119018655 0
# Node ID c449f070995c3977be94c406378f3c6b29ee277d
# Parent  9dc2ae3f910a15e2cf3d5518ece1145033daa6e2
(underline): Try bold if terminal doesn't support underline.

diff -r 9dc2ae3f910a -r c449f070995c lisp/faces.el
--- 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)