From 5f97a49d4666de5522ccc8f950dc97667fbb29c5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 2 Nov 2004 14:17:44 +0000 Subject: [PATCH] (customize-group-other-window): Select the window that displays the custom buffer. (custom-buffer-create-other-window): Likewise. --- lisp/cus-edit.el | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 9e0efc5d3d0..89fcb633133 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -896,15 +896,14 @@ 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 ( ;; 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)) + (pop-to-buffer name)) (custom-buffer-create-other-window (list (list group 'custom-group)) name @@ -1240,21 +1239,20 @@ that option." ;;;###autoload (defun custom-buffer-create-other-window (options &optional name description) - "Create a buffer containing OPTIONS. + "Create a buffer containing OPTIONS, and display it in another window. +The result includes selecting that window. Optional NAME is the name of the buffer. OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where SYMBOL is a customization option, and WIDGET is a widget for editing that option." (unless name (setq name "*Customization*")) - (let ((window (selected-window)) - (pop-up-windows t) + (let ((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 (custom-get-fresh-buffer name)) - (custom-buffer-create-internal options description) - (select-window window))) + (custom-buffer-create-internal options description))) (defcustom custom-reset-button-menu nil "If non-nil, only show a single reset button in customize buffers. -- 2.39.5