Commit 91a38db1 authored by Dave Love's avatar Dave Love
Browse files

(custom-buffer-create-internal): Use a help-echo function to be more

specific.
parent aeba6f9a
2000-07-16 Dave Love <fx@gnu.org>
* cus-edit.el (custom-buffer-create-internal): Use a help-echo
function to be more specific.
* wid-edit.el (widget-specify-field, widget-specify-button): Allow
non-string help-echo.
(widget-types-convert-widget): Defsubst it.
(widget-echo-help): Try to cope with a help-echo function of two
possible sorts.
2000-07-15 Jason Rumney <jasonr@gnu.org>
* w32-fns.el (w32-enable-italics, w32-charset-to-codepage-alist):
......
......@@ -1295,7 +1295,16 @@ Un-customize all values in this buffer. They get their standard settings."
(widget-insert " ")
(widget-create 'push-button
:tag "Finish"
:help-echo "Bury or kill the buffer."
:help-echo
(lambda (&rest ignore)
(concat (cond
((eq custom-buffer-done-function
'custom-bury-buffer)
"Bury")
((eq custom-buffer-done-function 'kill-buffer)
"Kill")
(t "Finish with"))
" the buffer."))
:action #'Custom-buffer-done)
(widget-insert "\n\n")
(message "Creating customization items...")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment