Regenerate, and restore by hand the shell function message lost in

[gnu-emacs] / lisp / button.el

diff --git a/lisp/button.el b/lisp/button.el
index 20c2c0692e6eb9e4424cb2bbec4938c4b08a0dc2..85180a923563ba5ec30647b195441c6104e07361 100644 (file)
--- a/lisp/button.el
+++ b/lisp/button.el
@@ -10,7 +10,7 @@
 ;;
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
 ;; any later version.
 ;;
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -52,10 +52,12 @@
 ;; Globals
 
 ;; Use color for the MS-DOS port because it doesn't support underline.
-;; Also for the linux console.
-(defface button '((((type pc tty) (class color))
+;; FIXME if MS-DOS correctly answers the (supports) question, it need
+;; no longer be a special case.
+(defface button '((((type pc) (class color))
                   (:foreground "lightblue"))
-                 (t :underline t))
+                 (((supports :underline t)) :underline t)
+                 (t (:foreground "lightblue")))
   "Default face used for buttons."
   :group 'basic-faces)
 
@@ -468,5 +470,5 @@ Returns the button found."
 
 (provide 'button)
 
-;;; arch-tag: 5f2c7627-413b-4097-b282-630f89d9c5e9
+;; arch-tag: 5f2c7627-413b-4097-b282-630f89d9c5e9
 ;;; button.el ends here