Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
35a7ac84
Commit
35a7ac84
authored
Jun 11, 2000
by
Dave Love
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(widget-specify-button): Really suppress the face if required.
parent
2c0ec709
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
9 additions
and
2 deletions
+9
-2
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/wid-edit.el
lisp/wid-edit.el
+4
-2
No files found.
lisp/ChangeLog
View file @
35a7ac84
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.
...
...
lisp/wid-edit.el
View file @
35a7ac84
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment