From 91a38db1dd7b8e624662f799de878a990a3bc9c5 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Sun, 16 Jul 2000 15:31:10 +0000 Subject: [PATCH] (custom-buffer-create-internal): Use a help-echo function to be more specific. --- lisp/ChangeLog | 11 +++++++++++ lisp/cus-edit.el | 11 ++++++++++- 2 files changed, 21 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 28ca33a9136..32a049e182f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,14 @@ +2000-07-16 Dave Love + + * 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 * w32-fns.el (w32-enable-italics, w32-charset-to-codepage-alist): diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index c05c0d05666..0c5588ac8f4 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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...") -- 2.39.2