[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: why isn't quitting Customize like quitting Info?
From: |
Richard Stallman |
Subject: |
Re: why isn't quitting Customize like quitting Info? |
Date: |
Sun, 23 Jan 2005 12:37:43 -0500 |
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...")