From: Dave Love <fx@gnu.org>
Date: Thu, 30 Sep 1999 16:53:27 +0000 (+0000)
Subject: (custom-bury-buffer): New function.
X-Git-Tag: emacs-pretest-21.0.90~6602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=62633a5f53f2976f36ff11dd84f2f914b5fe91f6;p=emacs.git

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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 38bc3eee2aa..ef9abde7892 100644
--- 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"