Mercurial > emacs
changeset 48975:227f251b919a
(customize-group-other-window): Use pop-to-buffer in
the same way as `custom-buffer-create-other-window'.
(customize-variable-other-window, customize-option-other-window):
Definitions moved up.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Thu, 26 Dec 2002 22:12:17 +0000 |
| parents | d29e4e3d4f5d |
| children | d45ef8a03c66 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 19 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Thu Dec 26 20:49:52 2002 +0000 +++ b/lisp/cus-edit.el Thu Dec 26 22:12:17 2002 +0000 @@ -908,7 +908,13 @@ (let ((name (format "*Customize Group: %s*" (custom-unlispify-tag-name group)))) (if (get-buffer name) - (let ((window (selected-window))) + (let ((window (selected-window)) + ;; Copied from `custom-buffer-create-other-window'. + (pop-up-windows t) + (special-display-buffer-names nil) + (special-display-regexps nil) + (same-window-buffer-names nil) + (same-window-regexps nil)) (pop-to-buffer name) (select-window window)) (custom-buffer-create-other-window @@ -950,6 +956,18 @@ (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) +;;;###autoload +(defalias 'customize-variable-other-window 'customize-option-other-window) + +;;;###autoload +(defun customize-option-other-window (symbol) + "Customize SYMBOL, which must be a user option variable. +Show the buffer in another window, but don't select it." + (interactive (custom-variable-prompt)) + (custom-buffer-create-other-window + (list (list symbol 'custom-variable)) + (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) + (defvar customize-changed-options-previous-release "20.2" "Version for `customize-changed-options' to refer back to by default.") @@ -1044,18 +1062,6 @@ (< minor1 minor2))))) ;;;###autoload -(defalias 'customize-variable-other-window 'customize-option-other-window) - -;;;###autoload -(defun customize-option-other-window (symbol) - "Customize SYMBOL, which must be a user option variable. -Show the buffer in another window, but don't select it." - (interactive (custom-variable-prompt)) - (custom-buffer-create-other-window - (list (list symbol 'custom-variable)) - (format "*Customize Option: %s*" (custom-unlispify-tag-name symbol)))) - -;;;###autoload (defun customize-face (&optional face) "Customize SYMBOL, which should be a face name or nil. If SYMBOL is nil, customize all faces.