Mercurial > emacs

changeset 22332:7ad747c6c5a9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(customize-group, customize-group-other-window) (custom-buffer-create, custom-buffer-create-other-window) (customize-browse): Use pop-to-buffer. (same-window-regexps): Add autoload to add regexp to match custom bfrs.
author Karl Heuer <kwzh@gnu.org>
date Tue, 02 Jun 1998 06:56:44 +0000
parents fcc3db2d9778
children 8d612a46dac6
files lisp/cus-edit.el
diffstat 1 files changed, 13 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Tue Jun 02 06:55:39 1998 +0000
+++ b/lisp/cus-edit.el	Tue Jun 02 06:56:44 1998 +0000
@@ -611,6 +611,8 @@
 		 (const :tag "none" nil))
   :group 'custom-menu)
 
+;;;###autoload (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'")
+
 (defun custom-sort-items (items sort-alphabetically order-groups)
   "Return a sorted copy of ITEMS.
 ITEMS should be a `custom-group' property.
@@ -825,7 +827,7 @@
   (let ((name (format "*Customize Group: %s*"
 		      (custom-unlispify-tag-name group))))
     (if (get-buffer name)
-	(switch-to-buffer name)
+	(pop-to-buffer name)
       (custom-buffer-create (list (list group 'custom-group))
 			    name
 			    (concat " for group "
@@ -851,7 +853,7 @@
 		      (custom-unlispify-tag-name group))))
     (if (get-buffer name)
 	(let ((window (selected-window)))
-	  (switch-to-buffer-other-window name)
+	  (pop-to-buffer-other-window name)
 	  (select-window window))
       (custom-buffer-create-other-window
        (list (list group 'custom-group))
@@ -1072,7 +1074,7 @@
 that option."
   (unless name (setq name "*Customization*"))
   (kill-buffer (get-buffer-create name))
-  (switch-to-buffer (get-buffer-create name))
+  (pop-to-buffer (get-buffer-create name))
   (custom-buffer-create-internal options description))
 
 ;;;###autoload
@@ -1084,8 +1086,13 @@
 that option."
   (unless name (setq name "*Customization*"))
   (kill-buffer (get-buffer-create name))
-  (let ((window (selected-window)))
-    (switch-to-buffer-other-window (get-buffer-create name))
+  (let ((window (selected-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 (get-buffer-create name))
     (custom-buffer-create-internal options description)
     (select-window window)))
 
@@ -1207,7 +1214,7 @@
     (setq group 'emacs))
   (let ((name "*Customize Browser*"))
     (kill-buffer (get-buffer-create name))
-    (switch-to-buffer (get-buffer-create name)))
+    (pop-to-buffer (get-buffer-create name)))
   (custom-mode)
   (widget-insert "\
 Square brackets show active fields; type RET or click mouse-1