(custom-bury-buffer): New function.

(custom-buffer-done-function): Use it.

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 38bc3eee2aa112c2e5b8e5965be87a68b62eba1a..ef9abde7892c22fbaa5f0253096932b0e57da1da 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1153,10 +1153,13 @@ links: groups have links to subgroups."
                (const links))
   :group 'custom-buffer)
 
+(defun custom-bury-buffer (buffer)
+  (bury-buffer))
+
 (defcustom custom-buffer-done-function 'bury-buffer
   "*Function called to remove a Custom buffer when the user is done with it.
 Called with one argument, the buffer to remove."
-  :type '(choice (function-item bury-buffer)
+  :type '(choice (function-item custom-bury-buffer)
                 (function-item kill-buffer)
                 (function :tag "Other"))
   :version "21.1"