diff options
| author | Lars Ingebrigtsen | 2016-04-28 14:50:24 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-04-28 14:50:24 +0200 |
| commit | 14508eaa3c0a97e305e8eebae5ce55787eec1e4a (patch) | |
| tree | b75ca37a940a7ba3396947cc0be34360083486a3 | |
| parent | ad3ef417f3c40f086de9c547d6272e5685595e42 (diff) | |
| download | emacs-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.el | 16 |
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. |
| 1548 | Optional NAME is the name of the buffer. | 1548 | Optional NAME is the name of the buffer. |
| 1549 | OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where | 1549 | OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where |
| 1550 | SYMBOL is a customization option, and WIDGET is a widget for editing | 1550 | SYMBOL is a customization option, and WIDGET is a widget for editing |
| 1551 | that option. | 1551 | that option. |
| 1552 | DESCRIPTION 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. |
| 1559 | The result includes selecting that window. | 1560 | The result includes selecting that window. |
| 1560 | Optional NAME is the name of the buffer. | 1561 | Optional NAME is the name of the buffer. |
| 1561 | OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where | 1562 | OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where |
| 1562 | SYMBOL is a customization option, and WIDGET is a widget for editing | 1563 | SYMBOL is a customization option, and WIDGET is a widget for editing |
| 1563 | that option." | 1564 | that 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. |