mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-04-19 12:30:47 -07:00
Clean up custom-buffer-create code slightly
* lisp/cus-edit.el (custom-buffer-create-other-window): Don't pass the unused description value on (for clarity) (bug#10540). (custom-buffer-create): Ditto
This commit is contained in:
parent
ad3ef417f3
commit
14508eaa3c
1 changed files with 9 additions and 7 deletions
|
|
@ -1543,27 +1543,29 @@ not for everybody."
|
|||
buf))))
|
||||
|
||||
;;;###autoload
|
||||
(defun custom-buffer-create (options &optional name description)
|
||||
(defun custom-buffer-create (options &optional name _description)
|
||||
"Create a buffer containing OPTIONS.
|
||||
Optional NAME is the name of the buffer.
|
||||
OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
|
||||
SYMBOL is a customization option, and WIDGET is a widget for editing
|
||||
that option.
|
||||
DESCRIPTION is unused."
|
||||
(pop-to-buffer-same-window (custom-get-fresh-buffer (or name "*Customization*")))
|
||||
(custom-buffer-create-internal options description))
|
||||
_DESCRIPTION is unused."
|
||||
(pop-to-buffer-same-window
|
||||
(custom-get-fresh-buffer (or name "*Customization*")))
|
||||
(custom-buffer-create-internal options))
|
||||
|
||||
;;;###autoload
|
||||
(defun custom-buffer-create-other-window (options &optional name description)
|
||||
(defun custom-buffer-create-other-window (options &optional name _description)
|
||||
"Create a buffer containing OPTIONS, and display it in another window.
|
||||
The result includes selecting that window.
|
||||
Optional NAME is the name of the buffer.
|
||||
OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
|
||||
SYMBOL is a customization option, and WIDGET is a widget for editing
|
||||
that option."
|
||||
that option.
|
||||
_DESCRIPTION is unused."
|
||||
(unless name (setq name "*Customization*"))
|
||||
(switch-to-buffer-other-window (custom-get-fresh-buffer name))
|
||||
(custom-buffer-create-internal options description))
|
||||
(custom-buffer-create-internal options))
|
||||
|
||||
(defcustom custom-reset-button-menu t
|
||||
"If non-nil, only show a single reset button in customize buffers.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue