[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r105732: Change modes that used same-
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r105732: Change modes that used same-window-* vars to use switch-to-buffer. |
Date: |
Sun, 11 Sep 2011 14:30:07 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 105732
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2011-09-11 14:30:07 -0400
message:
Change modes that used same-window-* vars to use switch-to-buffer.
* cmuscheme.el (run-scheme, switch-to-scheme):
* ielm.el (ielm):
* shell.el (shell):
* net/rlogin.el (rlogin):
* net/telnet.el (telnet, rsh):
* progmodes/inf-lisp.el (inferior-lisp): Use switch-to-buffer.
* cus-edit.el (customize-group, custom-buffer-create)
(customize-browse, custom-buffer-create-other-window): Use
switch-to-buffer or switch-to-buffer-other-window.
* info.el (info, Info-find-node, Info-revert-find-node, Info-next)
(Info-prev, Info-up, Info-speedbar-goto-node)
(info-display-manual): Use switch-to-buffer.
(Info-speedbar-goto-node): Use switch-to-buffer-other-frame.
* lisp/gnus/message.el (message-pop-to-buffer): Default to switch-to-buffer.
(message-mail-other-window, message-mail-other-frame)
(message-news-other-window, message-news-other-frame): Use
switch-to-buffer-other-frame and switch-to-buffer-other-window instead
of setting buffer display varibles.
* mail/sendmail.el (mail): Use switch-to-buffer.
(mail-recover): Use switch-to-buffer-other-window.
* progmodes/gdb-mi.el (gdb-restore-windows, gdb-setup-windows):
Use switch-to-buffer.
modified:
lisp/ChangeLog
lisp/cmuscheme.el
lisp/cus-edit.el
lisp/gnus/ChangeLog
lisp/gnus/message.el
lisp/ielm.el
lisp/info.el
lisp/mail/sendmail.el
lisp/net/rlogin.el
lisp/net/telnet.el
lisp/progmodes/gdb-mi.el
lisp/progmodes/gud.el
lisp/progmodes/inf-lisp.el
lisp/shell.el
lisp/window.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-09-11 17:08:17 +0000
+++ b/lisp/ChangeLog 2011-09-11 18:30:07 +0000
@@ -1,3 +1,29 @@
+2011-09-11 Chong Yidong <address@hidden>
+
+ Change modes that used same-window-* vars to use switch-to-buffer.
+
+ * progmodes/gdb-mi.el (gdb-restore-windows, gdb-setup-windows):
+ Use switch-to-buffer.
+
+ * cus-edit.el (customize-group, custom-buffer-create)
+ (customize-browse, custom-buffer-create-other-window): Use
+ switch-to-buffer or switch-to-buffer-other-window.
+
+ * info.el (info, Info-find-node, Info-revert-find-node, Info-next)
+ (Info-prev, Info-up, Info-speedbar-goto-node)
+ (info-display-manual): Use switch-to-buffer.
+ (Info-speedbar-goto-node): Use switch-to-buffer-other-frame.
+
+ * mail/sendmail.el (mail): Use switch-to-buffer.
+ (mail-recover): Use switch-to-buffer-other-window.
+
+ * cmuscheme.el (run-scheme, switch-to-scheme):
+ * ielm.el (ielm):
+ * shell.el (shell):
+ * net/rlogin.el (rlogin):
+ * net/telnet.el (telnet, rsh):
+ * progmodes/inf-lisp.el (inferior-lisp): Use switch-to-buffer.
+
2011-09-11 Andreas Schwab <address@hidden>
* dired.el (dired-sort-toggle-or-edit): Revert last changes.
=== modified file 'lisp/cmuscheme.el'
--- a/lisp/cmuscheme.el 2011-09-10 18:52:37 +0000
+++ b/lisp/cmuscheme.el 2011-09-11 18:30:07 +0000
@@ -246,7 +246,7 @@
(inferior-scheme-mode)))
(setq scheme-program-name cmd)
(setq scheme-buffer "*scheme*")
- (pop-to-buffer "*scheme*"))
+ (switch-to-buffer "*scheme*"))
(defun scheme-start-file (prog)
"Return the name of the start file corresponding to PROG.
@@ -371,7 +371,7 @@
(interactive "P")
(if (or (and scheme-buffer (get-buffer scheme-buffer))
(scheme-interactively-start-process))
- (pop-to-buffer scheme-buffer)
+ (switch-to-buffer scheme-buffer)
(error "No current process buffer. See variable `scheme-buffer'"))
(when eob-p
(push-mark)
=== modified file 'lisp/cus-edit.el'
--- a/lisp/cus-edit.el 2011-09-10 20:14:02 +0000
+++ b/lisp/cus-edit.el 2011-09-11 18:30:07 +0000
@@ -1112,7 +1112,7 @@
(let ((name (format "*Customize Group: %s*"
(custom-unlispify-tag-name group))))
(if (get-buffer name)
- (pop-to-buffer name other-window)
+ (switch-to-buffer name other-window)
(funcall (if other-window
'custom-buffer-create-other-window
'custom-buffer-create)
@@ -1533,7 +1533,7 @@
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."
- (pop-to-buffer (custom-get-fresh-buffer (or name "*Customization*")))
+ (switch-to-buffer (custom-get-fresh-buffer (or name "*Customization*")))
(custom-buffer-create-internal options description))
;;;###autoload
@@ -1545,7 +1545,7 @@
SYMBOL is a customization option, and WIDGET is a widget for editing
that option."
(unless name (setq name "*Customization*"))
- (pop-to-buffer (custom-get-fresh-buffer name) t)
+ (switch-to-buffer-other-window (custom-get-fresh-buffer name))
(custom-buffer-create-internal options description))
(defcustom custom-reset-button-menu nil
@@ -1721,7 +1721,7 @@
(unless group
(setq group 'emacs))
(let ((name "*Customize Browser*"))
- (pop-to-buffer (custom-get-fresh-buffer name)))
+ (switch-to-buffer (custom-get-fresh-buffer name)))
(Custom-mode)
(widget-insert (format "\
%s buttons; type RET or click mouse-1
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2011-09-11 16:15:00 +0000
+++ b/lisp/gnus/ChangeLog 2011-09-11 18:30:07 +0000
@@ -1,3 +1,11 @@
+2011-09-11 Chong Yidong <address@hidden>
+
+ * message.el (message-pop-to-buffer): Default to switch-to-buffer.
+ (message-mail-other-window, message-mail-other-frame)
+ (message-news-other-window, message-news-other-frame): Use
+ switch-to-buffer-other-frame and switch-to-buffer-other-window instead
+ of setting buffer display varibles.
+
2011-09-11 Lars Magne Ingebrigtsen <address@hidden>
* gnus-dup.el (gnus-dup-suppress-articles): Move "Suppressing
=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el 2011-09-09 08:59:51 +0000
+++ b/lisp/gnus/message.el 2011-09-11 18:30:07 +0000
@@ -6329,7 +6329,7 @@
(progn
(gnus-select-frame-set-input-focus (window-frame window))
(select-window window))
- (funcall (or switch-function 'pop-to-buffer) buffer)
+ (funcall (or switch-function 'switch-to-buffer) buffer)
(set-buffer buffer))
(when (and (buffer-modified-p)
(not (prog1
@@ -6337,7 +6337,7 @@
"Message already being composed; erase? ")
(message nil))))
(error "Message being composed")))
- (funcall (or switch-function 'pop-to-buffer) name)
+ (funcall (or switch-function 'switch-to-buffer) name)
(set-buffer name))
(erase-buffer)
(message-mode)))
@@ -7619,12 +7619,8 @@
"Like `message-mail' command, but display mail buffer in another window."
(interactive)
(unless (message-mail-user-agent)
- (let ((pop-up-windows t)
- (special-display-buffer-names nil)
- (special-display-regexps nil)
- (same-window-buffer-names nil)
- (same-window-regexps nil))
- (message-pop-to-buffer (message-buffer-name "mail" to))))
+ (message-pop-to-buffer (message-buffer-name "mail" to)
+ 'switch-to-buffer-other-window))
(let ((message-this-is-mail t))
(message-setup `((To . ,(or to "")) (Subject . ,(or subject "")))
nil nil nil 'switch-to-buffer-other-window)))
@@ -7634,12 +7630,8 @@
"Like `message-mail' command, but display mail buffer in another frame."
(interactive)
(unless (message-mail-user-agent)
- (let ((pop-up-frames t)
- (special-display-buffer-names nil)
- (special-display-regexps nil)
- (same-window-buffer-names nil)
- (same-window-regexps nil))
- (message-pop-to-buffer (message-buffer-name "mail" to))))
+ (message-pop-to-buffer (message-buffer-name "mail" to)
+ 'switch-to-buffer-other-frame))
(let ((message-this-is-mail t))
(message-setup `((To . ,(or to "")) (Subject . ,(or subject "")))
nil nil nil 'switch-to-buffer-other-frame)))
@@ -7648,12 +7640,8 @@
(defun message-news-other-window (&optional newsgroups subject)
"Start editing a news article to be sent."
(interactive)
- (let ((pop-up-windows t)
- (special-display-buffer-names nil)
- (special-display-regexps nil)
- (same-window-buffer-names nil)
- (same-window-regexps nil))
- (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
+ (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)
+ 'switch-to-buffer-other-window)
(let ((message-this-is-news t))
(message-setup `((Newsgroups . ,(or newsgroups ""))
(Subject . ,(or subject ""))))))
@@ -7662,12 +7650,8 @@
(defun message-news-other-frame (&optional newsgroups subject)
"Start editing a news article to be sent."
(interactive)
- (let ((pop-up-frames t)
- (special-display-buffer-names nil)
- (special-display-regexps nil)
- (same-window-buffer-names nil)
- (same-window-regexps nil))
- (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)))
+ (message-pop-to-buffer (message-buffer-name "posting" nil newsgroups)
+ 'switch-to-buffer-other-frame)
(let ((message-this-is-news t))
(message-setup `((Newsgroups . ,(or newsgroups ""))
(Subject . ,(or subject ""))))))
=== modified file 'lisp/ielm.el'
--- a/lisp/ielm.el 2011-09-10 18:52:37 +0000
+++ b/lisp/ielm.el 2011-09-11 18:30:07 +0000
@@ -563,7 +563,7 @@
(with-current-buffer (get-buffer-create "*ielm*")
(unless (zerop (buffer-size)) (setq old-point (point)))
(inferior-emacs-lisp-mode)))
- (pop-to-buffer "*ielm*")
+ (switch-to-buffer "*ielm*")
(when old-point (push-mark old-point))))
(provide 'ielm)
=== modified file 'lisp/info.el'
--- a/lisp/info.el 2011-09-10 20:14:02 +0000
+++ b/lisp/info.el 2011-09-11 18:30:07 +0000
@@ -610,7 +610,7 @@
"Like `info' but show the Info buffer in another window."
(interactive (if current-prefix-arg
(list (read-file-name "Info file name: " nil nil t))))
- (info-setup file-or-node (pop-to-buffer "*info*" t)))
+ (info-setup file-or-node (switch-to-buffer-other-window "*info*")))
;;;###autoload (put 'info 'info-file (purecopy "emacs"))
;;;###autoload
@@ -640,7 +640,7 @@
(read-file-name "Info file name: " nil nil t))
(if (numberp current-prefix-arg)
(format "*info*<%s>" current-prefix-arg))))
- (info-setup file-or-node (pop-to-buffer (or buffer "*info*"))))
+ (info-setup file-or-node (switch-to-buffer (or buffer "*info*"))))
(defun info-setup (file-or-node buffer)
"Display Info node FILE-OR-NODE in BUFFER."
@@ -775,7 +775,7 @@
(info-initialize)
(setq filename (Info-find-file filename))
;; Go into Info buffer.
- (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*"))
+ (or (eq major-mode 'Info-mode) (switch-to-buffer "*info*"))
;; Record the node we are leaving, if we were in one.
(and (not no-going-back)
Info-current-file
@@ -809,7 +809,7 @@
"Go to an Info node FILENAME and NODENAME, re-reading disk contents.
When *info* is already displaying FILENAME and NODENAME, the window position
is preserved, if possible."
- (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*"))
+ (or (eq major-mode 'Info-mode) (switch-to-buffer "*info*"))
(let ((old-filename Info-current-file)
(old-nodename Info-current-node)
(old-buffer-name (buffer-name))
@@ -821,7 +821,7 @@
(new-history (and Info-current-file
(list Info-current-file Info-current-node (point)))))
(kill-buffer (current-buffer))
- (pop-to-buffer (or old-buffer-name "*info*"))
+ (switch-to-buffer (or old-buffer-name "*info*"))
(Info-mode)
(Info-find-node filename nodename)
(setq Info-history-forward old-history-forward)
@@ -2021,7 +2021,7 @@
(interactive)
;; In case another window is currently selected
(save-window-excursion
- (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*"))
+ (or (eq major-mode 'Info-mode) (switch-to-buffer "*info*"))
(Info-goto-node (Info-extract-pointer "next"))))
(defun Info-prev ()
@@ -2029,7 +2029,7 @@
(interactive)
;; In case another window is currently selected
(save-window-excursion
- (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*"))
+ (or (eq major-mode 'Info-mode) (switch-to-buffer "*info*"))
(Info-goto-node (Info-extract-pointer "prev[ious]*" "previous"))))
(defun Info-up (&optional same-file)
@@ -2038,7 +2038,7 @@
(interactive)
;; In case another window is currently selected
(save-window-excursion
- (or (eq major-mode 'Info-mode) (pop-to-buffer "*info*"))
+ (or (eq major-mode 'Info-mode) (switch-to-buffer "*info*"))
(let ((old-node Info-current-node)
(old-file Info-current-file)
(node (Info-extract-pointer "up")) p)
@@ -4775,7 +4775,7 @@
(select-window bwin)
(raise-frame (window-frame bwin)))
(if speedbar-power-click
- (let ((pop-up-frames t)) (select-window (display-buffer buff)))
+ (switch-to-buffer-other-frame buff)
(speedbar-select-attached-frame)
(switch-to-buffer buff)))
(if (not (string-match "^(\\([^)]+\\))\\([^.]+\\)$" node))
@@ -4954,7 +4954,7 @@
(setq found buffer
blist nil))))
(if found
- (pop-to-buffer found)
+ (switch-to-buffer found)
(info-initialize)
(info (Info-find-file manual)))))
=== modified file 'lisp/mail/sendmail.el'
--- a/lisp/mail/sendmail.el 2011-09-10 21:15:28 +0000
+++ b/lisp/mail/sendmail.el 2011-09-11 18:30:07 +0000
@@ -1785,11 +1785,11 @@
This is how Rmail arranges to mark messages `answered'."
(interactive "P")
(if (eq noerase 'new)
- (pop-to-buffer (generate-new-buffer "*mail*"))
+ (switch-to-buffer (generate-new-buffer "*mail*"))
(and noerase
(not (get-buffer "*mail*"))
(setq noerase nil))
- (pop-to-buffer "*mail*"))
+ (switch-to-buffer "*mail*"))
;; Avoid danger that the auto-save file can't be written.
(let ((dir (expand-file-name
@@ -1939,7 +1939,7 @@
(dired-noselect file-name
(concat dired-listing-switches " -t"))))
(save-selected-window
- (select-window (display-buffer dispbuf t))
+ (switch-to-buffer-other-window dispbuf)
(goto-char (point-min))
(forward-line 2)
(dired-move-to-filename)
=== modified file 'lisp/net/rlogin.el'
--- a/lisp/net/rlogin.el 2011-09-10 18:52:37 +0000
+++ b/lisp/net/rlogin.el 2011-09-11 18:30:07 +0000
@@ -194,7 +194,7 @@
(t
(setq buffer-name (generate-new-buffer-name buffer-name))))
(setq buffer (get-buffer-create buffer-name))
- (pop-to-buffer buffer-name)
+ (switch-to-buffer buffer-name)
(unless (comint-check-proc buffer-name)
(comint-exec buffer buffer-name rlogin-program nil args)
(rlogin-mode)
=== modified file 'lisp/net/telnet.el'
--- a/lisp/net/telnet.el 2011-09-10 18:52:37 +0000
+++ b/lisp/net/telnet.el 2011-09-11 18:30:07 +0000
@@ -217,8 +217,8 @@
(telnet-options (if (cdr properties) (cons "-l" (cdr properties))))
process)
(if (and buffer (get-buffer-process buffer))
- (pop-to-buffer (concat "*" name "*"))
- (pop-to-buffer
+ (switch-to-buffer (concat "*" name "*"))
+ (switch-to-buffer
(apply 'make-comint name telnet-program nil telnet-options))
(setq process (get-buffer-process (current-buffer)))
(set-process-filter process 'telnet-initial-filter)
@@ -252,7 +252,7 @@
(interactive "sOpen rsh connection to host: ")
(require 'shell)
(let ((name (concat "rsh-" host )))
- (pop-to-buffer (make-comint name remote-shell-program nil host))
+ (switch-to-buffer (make-comint name remote-shell-program nil host))
(set-process-filter (get-process name) 'telnet-initial-filter)
(telnet-mode)
(setq telnet-count -16)))
=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el 2011-09-10 21:15:28 +0000
+++ b/lisp/progmodes/gdb-mi.el 2011-09-11 18:30:07 +0000
@@ -4006,7 +4006,7 @@
(gdb-display-breakpoints-buffer)
(delete-other-windows)
;; Don't dedicate.
- (pop-to-buffer gud-comint-buffer)
+ (switch-to-buffer gud-comint-buffer)
(let ((win0 (selected-window))
(win1 (split-window nil ( / ( * (window-height) 3) 4)))
(win2 (split-window nil ( / (window-height) 3)))
@@ -4065,7 +4065,7 @@
"Restore the basic arrangement of windows used by gdb.
This arrangement depends on the value of `gdb-many-windows'."
(interactive)
- (pop-to-buffer gud-comint-buffer) ;Select the right window and frame.
+ (switch-to-buffer gud-comint-buffer) ;Select the right window and frame.
(delete-other-windows)
(if gdb-many-windows
(gdb-setup-windows)
=== modified file 'lisp/progmodes/gud.el'
--- a/lisp/progmodes/gud.el 2011-09-10 21:15:28 +0000
+++ b/lisp/progmodes/gud.el 2011-09-11 18:30:07 +0000
@@ -2496,7 +2496,7 @@
file-subst)))
(filepart (and file-word (concat "-" (file-name-nondirectory file))))
(existing-buffer (get-buffer (concat "*gud" filepart "*"))))
- (pop-to-buffer (concat "*gud" filepart "*"))
+ (switch-to-buffer (concat "*gud" filepart "*"))
(when (and existing-buffer (get-buffer-process existing-buffer))
(error "This program is already being debugged"))
;; Set the dir, in case the buffer already existed with a different dir.
=== modified file 'lisp/progmodes/inf-lisp.el'
--- a/lisp/progmodes/inf-lisp.el 2011-09-10 18:52:37 +0000
+++ b/lisp/progmodes/inf-lisp.el 2011-09-11 18:30:07 +0000
@@ -297,7 +297,7 @@
"inferior-lisp" (car cmdlist) nil (cdr cmdlist)))
(inferior-lisp-mode)))
(setq inferior-lisp-buffer "*inferior-lisp*")
- (pop-to-buffer "*inferior-lisp*"))
+ (switch-to-buffer "*inferior-lisp*"))
;;;###autoload
(defalias 'run-lisp 'inferior-lisp)
=== modified file 'lisp/shell.el'
--- a/lisp/shell.el 2011-09-10 18:52:37 +0000
+++ b/lisp/shell.el 2011-09-11 18:30:07 +0000
@@ -650,9 +650,9 @@
t shell-file-name))
'localname))))
- ;; Pop to buffer, so that the buffer's window will be correctly set
- ;; when we call comint (so that comint sets the COLUMNS env var properly).
- (pop-to-buffer buffer)
+ ;; The buffer's window must be correctly set when we call comint (so
+ ;; that comint sets the COLUMNS env var properly).
+ (switch-to-buffer buffer)
(unless (comint-check-proc buffer)
(let* ((prog (or explicit-shell-file-name
(getenv "ESHELL") shell-file-name))
=== modified file 'lisp/window.el'
--- a/lisp/window.el 2011-09-10 21:15:28 +0000
+++ b/lisp/window.el 2011-09-11 18:30:07 +0000
@@ -4498,11 +4498,7 @@
buffer))
(current-buffer)))
-(defvar display-buffer-alist
- '(("\\`\\*\\(scheme\\|ielm\\|shell\\|\\(unsent \\)?mail\\|\
-inferior-lisp\\|Python\\|Customiz.*\\|info\\|rlogin-.*\\|\
-telnet-.*\\|rsh-.*\\|gud-.*\\)\\*\\(<[0-9]+>\\)?"
- . (display-buffer-same-window)))
+(defvar display-buffer-alist nil
"Alist of conditional actions for `display-buffer'.
This is a list of elements (CONDITION . ACTION), where:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r105732: Change modes that used same-window-* vars to use switch-to-buffer.,
Chong Yidong <=