(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fc2fd27ede989309943bd981f2f9ed58f8999315..d3d113d4919679ff11ea69a47fa3d4f85dc87ce3 100644 (file)
--- 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\e,A_\e(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 63901cc7a8c0bbf4115f26168298a691608e595f..d2321f48a68b701eaa0fdbc20bd45a30f08b189c 100644 (file)
--- 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.