# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 960764442 0
# Node ID db8d9c0d471f33dea32d1887965d251580abe53a
# Parent  3334012b1cb4ef900537e05f6fe4534744434ea9
(widget-specify-button): Really suppress the face if required.

diff -r 3334012b1cb4 -r db8d9c0d471f lisp/wid-edit.el
--- a/lisp/wid-edit.el	Sun Jun 11 22:35:19 2000 +0000
+++ b/lisp/wid-edit.el	Sun Jun 11 23:00:42 2000 +0000
@@ -339,8 +339,7 @@
       (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 @@
   :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