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

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.