From 62633a5f53f2976f36ff11dd84f2f914b5fe91f6 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 30 Sep 1999 16:53:27 +0000 Subject: [PATCH] (custom-bury-buffer): New function. (custom-buffer-done-function): Use it. --- lisp/cus-edit.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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" -- 2.39.5