diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-09-11 14:30:07 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-09-11 14:30:07 -0400 |
| commit | 37ac18a341f604b6ebf27af8effc7ef73e2a28ea (patch) | |
| tree | 2d66b3afb31deff84e67950478a56a81101f59fd /lisp/mail | |
| parent | d562d7a44cf4abe2ea23ee6fc2982a1e41bc27fb (diff) | |
| download | emacs-37ac18a341f604b6ebf27af8effc7ef73e2a28ea.tar.gz emacs-37ac18a341f604b6ebf27af8effc7ef73e2a28ea.tar.bz2 emacs-37ac18a341f604b6ebf27af8effc7ef73e2a28ea.zip | |
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.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 6e5c9a6b257..6bcf65945b5 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -1785,11 +1785,11 @@ The seventh argument ACTIONS is a list of actions to take 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 @@ you can move to one of them and type C-c C-c to recover that one." (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) |