Mercurial > emacs
changeset 30247:80383e9be1e2
(custom-buffer-create-internal): Use a help-echo function to be more
specific.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 16 Jul 2000 15:30:34 +0000 |
| parents | e99b2e89fa59 |
| children | c969af4a71a7 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Sun Jul 16 15:27:43 2000 +0000 +++ b/lisp/cus-edit.el Sun Jul 16 15:30:34 2000 +0000 @@ -1295,7 +1295,16 @@ (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...")