From ffec8c5a3d3ed9bef34bf0b9b7fdbe6f06d6ae7f Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Thu, 26 Dec 2002 22:15:38 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 7 +++++++ 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 + + * 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 * 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.") @@ -1043,18 +1061,6 @@ version." (and (= major1 major2) (< 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. -- 2.39.2