896 |
(let ((name (format "*Customize Group: %s*" |
(let ((name (format "*Customize Group: %s*" |
897 |
(custom-unlispify-tag-name group)))) |
(custom-unlispify-tag-name group)))) |
898 |
(if (get-buffer name) |
(if (get-buffer name) |
899 |
(let ((window (selected-window)) |
(let ( |
900 |
;; Copied from `custom-buffer-create-other-window'. |
;; Copied from `custom-buffer-create-other-window'. |
901 |
(pop-up-windows t) |
(pop-up-windows t) |
902 |
(special-display-buffer-names nil) |
(special-display-buffer-names nil) |
903 |
(special-display-regexps nil) |
(special-display-regexps nil) |
904 |
(same-window-buffer-names nil) |
(same-window-buffer-names nil) |
905 |
(same-window-regexps nil)) |
(same-window-regexps nil)) |
906 |
(pop-to-buffer name) |
(pop-to-buffer name)) |
|
(select-window window)) |
|
907 |
(custom-buffer-create-other-window |
(custom-buffer-create-other-window |
908 |
(list (list group 'custom-group)) |
(list (list group 'custom-group)) |
909 |
name |
name |
1239 |
|
|
1240 |
;;;###autoload |
;;;###autoload |
1241 |
(defun custom-buffer-create-other-window (options &optional name description) |
(defun custom-buffer-create-other-window (options &optional name description) |
1242 |
"Create a buffer containing OPTIONS. |
"Create a buffer containing OPTIONS, and display it in another window. |
1243 |
|
The result includes selecting that window. |
1244 |
Optional NAME is the name of the buffer. |
Optional NAME is the name of the buffer. |
1245 |
OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where |
OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where |
1246 |
SYMBOL is a customization option, and WIDGET is a widget for editing |
SYMBOL is a customization option, and WIDGET is a widget for editing |
1247 |
that option." |
that option." |
1248 |
(unless name (setq name "*Customization*")) |
(unless name (setq name "*Customization*")) |
1249 |
(let ((window (selected-window)) |
(let ((pop-up-windows t) |
|
(pop-up-windows t) |
|
1250 |
(special-display-buffer-names nil) |
(special-display-buffer-names nil) |
1251 |
(special-display-regexps nil) |
(special-display-regexps nil) |
1252 |
(same-window-buffer-names nil) |
(same-window-buffer-names nil) |
1253 |
(same-window-regexps nil)) |
(same-window-regexps nil)) |
1254 |
(pop-to-buffer (custom-get-fresh-buffer name)) |
(pop-to-buffer (custom-get-fresh-buffer name)) |
1255 |
(custom-buffer-create-internal options description) |
(custom-buffer-create-internal options description))) |
|
(select-window window))) |
|
1256 |
|
|
1257 |
(defcustom custom-reset-button-menu nil |
(defcustom custom-reset-button-menu nil |
1258 |
"If non-nil, only show a single reset button in customize buffers. |
"If non-nil, only show a single reset button in customize buffers. |