aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Ingebrigtsen2016-04-28 14:50:24 +0200
committerLars Ingebrigtsen2016-04-28 14:50:24 +0200
commit14508eaa3c0a97e305e8eebae5ce55787eec1e4a (patch)
treeb75ca37a940a7ba3396947cc0be34360083486a3
parentad3ef417f3c40f086de9c547d6272e5685595e42 (diff)
downloademacs-14508eaa3c0a97e305e8eebae5ce55787eec1e4a.tar.gz
emacs-14508eaa3c0a97e305e8eebae5ce55787eec1e4a.zip
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
-rw-r--r--lisp/cus-edit.el16
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index addff82c624..cf98b608203 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -1543,27 +1543,29 @@ not for everybody."
1543 buf)))) 1543 buf))))
1544 1544
1545;;;###autoload 1545;;;###autoload
1546(defun custom-buffer-create (options &optional name description) 1546(defun custom-buffer-create (options &optional name _description)
1547 "Create a buffer containing OPTIONS. 1547 "Create a buffer containing OPTIONS.
1548Optional NAME is the name of the buffer. 1548Optional NAME is the name of the buffer.
1549OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where 1549OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
1550SYMBOL is a customization option, and WIDGET is a widget for editing 1550SYMBOL is a customization option, and WIDGET is a widget for editing
1551that option. 1551that option.
1552DESCRIPTION is unused." 1552_DESCRIPTION is unused."
1553 (pop-to-buffer-same-window (custom-get-fresh-buffer (or name "*Customization*"))) 1553 (pop-to-buffer-same-window
1554 (custom-buffer-create-internal options description)) 1554 (custom-get-fresh-buffer (or name "*Customization*")))
1555 (custom-buffer-create-internal options))
1555 1556
1556;;;###autoload 1557;;;###autoload
1557(defun custom-buffer-create-other-window (options &optional name description) 1558(defun custom-buffer-create-other-window (options &optional name _description)
1558 "Create a buffer containing OPTIONS, and display it in another window. 1559 "Create a buffer containing OPTIONS, and display it in another window.
1559The result includes selecting that window. 1560The result includes selecting that window.
1560Optional NAME is the name of the buffer. 1561Optional NAME is the name of the buffer.
1561OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where 1562OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
1562SYMBOL is a customization option, and WIDGET is a widget for editing 1563SYMBOL is a customization option, and WIDGET is a widget for editing
1563that option." 1564that option.
1565_DESCRIPTION is unused."
1564 (unless name (setq name "*Customization*")) 1566 (unless name (setq name "*Customization*"))
1565 (switch-to-buffer-other-window (custom-get-fresh-buffer name)) 1567 (switch-to-buffer-other-window (custom-get-fresh-buffer name))
1566 (custom-buffer-create-internal options description)) 1568 (custom-buffer-create-internal options))
1567 1569
1568(defcustom custom-reset-button-menu t 1570(defcustom custom-reset-button-menu t
1569 "If non-nil, only show a single reset button in customize buffers. 1571 "If non-nil, only show a single reset button in customize buffers.