mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(customize-group-other-window): Use pop-to-buffer in

Browse source 
the same way as `custom-buffer-create-other-window'.
(customize-variable-other-window, customize-option-other-window):
Definitions moved up.
This commit is contained in:
Markus Rost 2002-12-26 22:15:38 +00:00
parent abc6be8d89
commit ffec8c5a3d
2 changed files with 26 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

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

32
lisp/cus-edit.el
View file

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