# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 963761434 0
# Node ID 80383e9be1e2aae622e4ab92209abd2f72b2cecc
# Parent  e99b2e89fa59f4aba844921a7f85424f35ce089d
(custom-buffer-create-internal): Use a help-echo function to be more
specific.

diff -r e99b2e89fa59 -r 80383e9be1e2 lisp/cus-edit.el
--- 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...")