Re: why isn't quitting Customize like quitting Info?

[Richard Stallman]

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...")