/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.157.2.9 by miles, Tue Jul 6 10:17:15 2004 UTC revision 1.157.2.10 by miles, Thu Nov 4 13:12:40 2004 UTC
# Line 896  then prompt for the MODE to customize." Line 896  then prompt for the MODE to customize."
896    (let ((name (format "*Customize Group: %s*"    (let ((name (format "*Customize Group: %s*"
897                        (custom-unlispify-tag-name group))))                        (custom-unlispify-tag-name group))))
898      (if (get-buffer name)      (if (get-buffer name)
899          (let ((window (selected-window))          (let (
900                ;; Copied from `custom-buffer-create-other-window'.                ;; Copied from `custom-buffer-create-other-window'.
901                (pop-up-windows t)                (pop-up-windows t)
902                (special-display-buffer-names nil)                (special-display-buffer-names nil)
903                (special-display-regexps nil)                (special-display-regexps nil)
904                (same-window-buffer-names nil)                (same-window-buffer-names nil)
905                (same-window-regexps nil))                (same-window-regexps nil))
906            (pop-to-buffer name)            (pop-to-buffer name))
           (select-window window))  
907        (custom-buffer-create-other-window        (custom-buffer-create-other-window
908         (list (list group 'custom-group))         (list (list group 'custom-group))
909         name         name
# Line 1240  that option." Line 1239  that option."
1239    
1240  ;;;###autoload  ;;;###autoload
1241  (defun custom-buffer-create-other-window (options &optional name description)  (defun custom-buffer-create-other-window (options &optional name description)
1242    "Create a buffer containing OPTIONS.    "Create a buffer containing OPTIONS, and display it in another window.
1243    The result includes selecting that window.
1244  Optional NAME is the name of the buffer.  Optional NAME is the name of the buffer.
1245  OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where  OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
1246  SYMBOL is a customization option, and WIDGET is a widget for editing  SYMBOL is a customization option, and WIDGET is a widget for editing
1247  that option."  that option."
1248    (unless name (setq name "*Customization*"))    (unless name (setq name "*Customization*"))
1249    (let ((window (selected-window))    (let ((pop-up-windows t)
         (pop-up-windows t)  
1250          (special-display-buffer-names nil)          (special-display-buffer-names nil)
1251          (special-display-regexps nil)          (special-display-regexps nil)
1252          (same-window-buffer-names nil)          (same-window-buffer-names nil)
1253          (same-window-regexps nil))          (same-window-regexps nil))
1254      (pop-to-buffer (custom-get-fresh-buffer name))      (pop-to-buffer (custom-get-fresh-buffer name))
1255      (custom-buffer-create-internal options description)      (custom-buffer-create-internal options description)))
     (select-window window)))  
1256    
1257  (defcustom custom-reset-button-menu nil  (defcustom custom-reset-button-menu nil
1258    "If non-nil, only show a single reset button in customize buffers.    "If non-nil, only show a single reset button in customize buffers.

Legend:
Removed from v.1.157.2.9  
changed lines
  Added in v.1.157.2.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26