From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: why isn't quitting Customize like quitting Info? Date: Sun, 23 Jan 2005 12:37:43 -0500 Message-ID: References: Reply-To: rms@gnu.org NNTP-Posting-Host: deer.gmane.org X-Trace: sea.gmane.org 1106502310 14835 80.91.229.6 (23 Jan 2005 17:45:10 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Sun, 23 Jan 2005 17:45:10 +0000 (UTC) Cc: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sun Jan 23 18:45:02 2005 Return-path: Original-Received: from lists.gnu.org ([199.232.76.165]) by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 1CslnJ-0003Z8-00 for ; Sun, 23 Jan 2005 18:45:02 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1CslzP-0006rU-CL for ged-emacs-devel@m.gmane.org; Sun, 23 Jan 2005 12:57:31 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Cslxi-0006Ls-L5 for emacs-devel@gnu.org; Sun, 23 Jan 2005 12:55:49 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Cslxb-0006IK-RD for emacs-devel@gnu.org; Sun, 23 Jan 2005 12:55:40 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Cslxb-0006GG-Ft for emacs-devel@gnu.org; Sun, 23 Jan 2005 12:55:39 -0500 Original-Received: from [199.232.76.164] (helo=fencepost.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.34) id 1Cslhu-0006Y6-3r for emacs-devel@gnu.org; Sun, 23 Jan 2005 12:39:26 -0500 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.34) id 1CslgF-00047Q-40; Sun, 23 Jan 2005 12:37:43 -0500 Original-To: "Drew Adams" In-reply-to: X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:32510 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:32510 How about this patch? *** cus-edit.el 08 Jan 2005 21:43:12 -0500 1.206 --- cus-edit.el 23 Jan 2005 08:04:52 -0500 *************** *** 1181,1199 **** (const links)) :group 'custom-buffer) ! ;; If we pass BUFFER to `bury-buffer', the buffer isn't removed from ! ;; the window. ! (defun custom-bury-buffer (buffer) ! (with-current-buffer buffer ! (bury-buffer))) ! ! (defcustom custom-buffer-done-function 'custom-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 :tag "Bury buffer" custom-bury-buffer) ! (function-item :tag "Kill buffer" kill-buffer) ! (function :tag "Other")) ! :version "21.1" :group 'custom-buffer) (defcustom custom-buffer-indent 3 --- 1181,1190 ---- (const links)) :group 'custom-buffer) ! (defcustom custom-buffer-done-kill nil ! "*Non-nil means exiting a Custom buffer should kill it." ! :type 'boolean ! :version "21.4" :group 'custom-buffer) (defcustom custom-buffer-indent 3 *************** *** 1265,1273 **** :group 'custom-buffer) (defun Custom-buffer-done (&rest ignore) ! "Remove current buffer by calling `custom-buffer-done-function'." (interactive) ! (funcall custom-buffer-done-function (current-buffer))) (defcustom custom-raised-buttons (not (equal (face-valid-attribute-values :box) '(("unspecified" . unspecified)))) --- 1256,1264 ---- :group 'custom-buffer) (defun Custom-buffer-done (&rest ignore) ! "Exit current Custom buffer according to `custom-buffer-done-kill'." (interactive) ! (quit-window custom-buffer-done-kill)) (defcustom custom-raised-buttons (not (equal (face-valid-attribute-values :box) '(("unspecified" . unspecified)))) *************** *** 1353,1365 **** :tag "Finish" :help-echo (lambda (&rest ignore) ! (cond ! ((eq custom-buffer-done-function ! 'custom-bury-buffer) ! "Bury this buffer") ! ((eq custom-buffer-done-function 'kill-buffer) ! "Kill this buffer") ! (t "Finish with this buffer"))) :action #'Custom-buffer-done) (widget-insert "\n\n") (message "Creating customization items...") --- 1344,1352 ---- :tag "Finish" :help-echo (lambda (&rest ignore) ! (if custom-buffer-done-kill ! "Kill this buffer" ! "Bury this buffer")) :action #'Custom-buffer-done) (widget-insert "\n\n") (message "Creating customization items...")