diff options
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 32 |
2 files changed, 26 insertions, 13 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc2fd27ede9..d3d113d4919 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2002-12-26 Markus Rost <rost@math.ohio-state.edu> + + * cus-edit.el (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. + 2002-12-26 Kai Gro,A_(Bjohann <kai.grossjohann@uni-duisburg.de> * net/tramp*.el: Sync with upstream version 2.0.28. Bugfixes. diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 63901cc7a8c..d2321f48a68 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -908,7 +908,13 @@ then prompt for the MODE to customize." (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 @@ then prompt for the MODE to customize." (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 @@ version." (< 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. |