Commit ffec8c5a authored by Markus Rost's avatar Markus Rost
Browse files

(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.
parent abc6be8d
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.
......
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment