From: Dave Love <fx@gnu.org>
Date: Sun, 11 Jun 2000 23:02:14 +0000 (+0000)
Subject: (widget-specify-button): Really suppress the face if required.
X-Git-Tag: emacs-pretest-21.0.90~3395
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35a7ac84462cfb126bee6e2cab60e75515cef3ad;p=emacs.git

(widget-specify-button): Really suppress the face if required.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 39a352dfbc7..8fbba29987f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2000-06-12  Dave Love  <fx@gnu.org>
+
+	* wid-edit.el (widget-specify-button): Really suppress the face if
+	required.
+
 2000-06-11  Gerd Moellmann  <gerd@gnu.org>
 
 	* term/x-win.el (x-colors): Add colors from recent rgb.txt.
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 177a12ab214..ac2cc0d9ef6 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -339,8 +339,7 @@ new value.")
       (overlay-put overlay 'mouse-face widget-mouse-face))
     ;;(overlay-put overlay 'balloon-help help-echo)
     (if (stringp help-echo)
-	(overlay-put overlay 'help-echo help-echo))
-    (overlay-put overlay 'face face)))
+	(overlay-put overlay 'help-echo help-echo))))
 
 (defun widget-specify-sample (widget from to)
   "Specify sample for WIDGET between FROM and TO."
@@ -1956,6 +1955,9 @@ when he invoked the menu."
   :button-prefix ""
   :format "%[%v%]"
   :on "[X]"
+  ;; We could probably do the same job as the images using single
+  ;; space characters in a boxed face with a stretch specification to
+  ;; make them square.
   :on-glyph (create-image (make-bool-vector 49 1)
 			  'xbm t :width 7 :height 7
 			  :foreground "grey75" ; like default mode line