From 35a7ac84462cfb126bee6e2cab60e75515cef3ad Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 11 Jun 2000 23:02:14 +0000 Subject: [PATCH] (widget-specify-button): Really suppress the face if required. --- lisp/ChangeLog | 5 +++++ lisp/wid-edit.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * wid-edit.el (widget-specify-button): Really suppress the face if + required. + 2000-06-11 Gerd Moellmann * 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 -- 2.11.4.GIT