diff options
| author | Dave Love <fx@gnu.org> | 2000-06-11 23:02:14 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-06-11 23:02:14 +0000 |
| commit | 35a7ac84462cfb126bee6e2cab60e75515cef3ad (patch) | |
| tree | 47eb9d7fc9e0f46403e8a0e7227d9bae63e038eb /lisp | |
| parent | 2c0ec709cceb9db1155d6e5921a5e19eb0824c72 (diff) | |
| download | emacs-35a7ac84462cfb126bee6e2cab60e75515cef3ad.tar.gz | |
(widget-specify-button): Really suppress the face if required.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 |