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

1 files changed, 19 insertions, 13 deletions

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.