mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

Adapt 2011-07-05 switch-to-buffer changes to new switch-to-buffer

Browse Source 
* lisp/bindings.el (mode-line-other-buffer):
* lisp/bookmark.el (bookmark-bmenu-2-window):
* lisp/bs.el (bs-cycle-next, bs-cycle-previous):
* lisp/net/tramp-cmds.el (tramp-append-tramp-buffers): Revert to using
switch-to-buffer.

* lisp/net/tramp-compat.el (tramp-compat-pop-to-buffer-same-window):
Deleted.
This commit is contained in:
Chong Yidong 2011-07-13 21:40:30 -04:00
parent 5eba16a37c
commit 8bdfa0649b
6 changed files with 17 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,3 +1,14 @@
2011-07-14 Chong Yidong <cyd@stupidchicken.com>
* bindings.el (mode-line-other-buffer):
* bookmark.el (bookmark-bmenu-2-window):
* bs.el (bs-cycle-next, bs-cycle-previous):
* net/tramp-cmds.el (tramp-append-tramp-buffers): Revert to using
switch-to-buffer.
* net/tramp-compat.el (tramp-compat-pop-to-buffer-same-window):
Deleted.
2011-07-14 Juanma Barranquero <lekktu@gmail.com>
* follow.el (follow-debug-message, follow-redisplay):

3
lisp/bindings.el
View File

@ -471,8 +471,7 @@ Like `bury-buffer', but temporarily select EVENT's window."
(defun mode-line-other-buffer () "\
Switch to the most recently selected buffer other than the current one."
(interactive)
(with-no-warnings ; We really do want to call `switch-to-buffer' here.
(switch-to-buffer (other-buffer))))
(switch-to-buffer (other-buffer) nil t))
(defun mode-line-next-buffer (event)
"Like `next-buffer', but temporarily select EVENT's window."

3
lisp/bookmark.el
View File

@ -1841,8 +1841,7 @@ With a prefix arg, prompts for a file to save them in."
(menu (current-buffer))
(pop-up-windows t))
(delete-other-windows)
(with-no-warnings ; We really do want to call `switch-to-buffer' here.
(switch-to-buffer (other-buffer)))
(switch-to-buffer (other-buffer) nil t)
(bookmark--jump-via bmrk 'pop-to-buffer)
(bury-buffer menu)))

6
lisp/bs.el
View File

@ -1215,8 +1215,7 @@ by buffer configuration `bs-cycle-configuration-name'."
;; We don't want the frame iconified if the only window in the frame
;; happens to be dedicated.
(bury-buffer (current-buffer))
(with-no-warnings ; We really do want to call `switch-to-buffer' here.
(switch-to-buffer next))
(switch-to-buffer next nil t)
(setq bs--cycle-list (append (cdr cycle-list)
(list (car cycle-list))))
(bs-message-without-log "Next buffers: %s"
@ -1245,8 +1244,7 @@ by buffer configuration `bs-cycle-configuration-name'."
bs--cycle-list)))
(prev-buffer (car tupel))
(cycle-list (cdr tupel)))
(with-no-warnings ; We really do want to call `switch-to-buffer' here.
(switch-to-buffer prev-buffer))
(switch-to-buffer prev-buffer nil t)
(setq bs--cycle-list (append (last cycle-list)
(reverse (cdr (reverse cycle-list)))))
(bs-message-without-log "Previous buffers: %s"

4
lisp/net/tramp-cmds.el
View File

@ -308,7 +308,7 @@ buffer in your bug report.
;; There is at least one Tramp buffer.
(when buffer-list
(tramp-compat-pop-to-buffer-same-window (list-buffers-noselect nil))
(switch-to-buffer (list-buffers-noselect nil))
(delete-other-windows)
(setq buffer-read-only nil)
(goto-char (point-min))
@ -343,7 +343,7 @@ the debug buffer(s).")
;; OK, let's send. First we delete the buffer list.
(progn
(kill-buffer nil)
(tramp-compat-pop-to-buffer-same-window curbuf)
(switch-to-buffer curbuf)
(goto-char (point-max))
(insert "\n\
This is a special notion of the `gnus/message' package. If you

9
lisp/net/tramp-compat.el
View File

@ -502,15 +502,6 @@ EOL-TYPE can be one of `dos', `unix', or `mac'."
"`dos', `unix', or `mac'")))))
(t (error "Can't change EOL conversion -- is MULE missing?"))))
;; `pop-to-buffer-same-window' has been introduced with Emacs 24.1.
(defun tramp-compat-pop-to-buffer-same-window
(&optional buffer-or-name norecord label)
"Pop to buffer specified by BUFFER-OR-NAME in the selected window."
(if (fboundp 'pop-to-buffer-same-window)
(tramp-compat-funcall
'pop-to-buffer-same-window buffer-or-name norecord label)
(tramp-compat-funcall 'switch-to-buffer buffer-or-name norecord)))
(add-hook 'tramp-unload-hook
(lambda ()
(unload-feature 'tramp-compat 'force)))