diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-07-05 11:31:22 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-07-05 11:31:22 -0400 |
| commit | 2dcdbdd97db0f414a2f11421e9d8001ea6178517 (patch) | |
| tree | be3264dba0659172179eaf2b03a163e4555c9982 /lisp/progmodes/compile.el | |
| parent | 73fed7aeda408ab0e9d67ca3c44a4c7711e5b490 (diff) | |
| download | emacs-2dcdbdd97db0f414a2f11421e9d8001ea6178517.tar.gz emacs-2dcdbdd97db0f414a2f11421e9d8001ea6178517.tar.bz2 emacs-2dcdbdd97db0f414a2f11421e9d8001ea6178517.zip | |
Fix some uses of switch-to-buffer.
* lisp/progmodes/compile.el (compilation-goto-locus):
* lisp/net/tramp-cmds.el (tramp-append-tramp-buffers):
* lisp/bs.el (bs-cycle-next, bs-cycle-previous):
* lisp/bookmark.el (bookmark-bmenu-list, bookmark-bmenu-2-window):
* lisp/bindings.el (mode-line-other-buffer):
* lisp/autoinsert.el (auto-insert):
* lisp/arc-mode.el (archive-extract):
* lisp/abbrev.el (edit-abbrevs): Fix some uses of switch-to-buffer.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 0b9390af6c9..3a9463f0f97 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -2410,9 +2410,7 @@ and overlay is highlighted between MK and END-MK." ;; display the source in another window. (let ((pop-up-windows t)) (pop-to-buffer (marker-buffer mk) 'other-window)) - (if (window-dedicated-p (selected-window)) - (pop-to-buffer (marker-buffer mk)) - (switch-to-buffer (marker-buffer mk)))) + (pop-to-buffer-same-window (marker-buffer mk))) (unless (eq (goto-char mk) (point)) ;; If narrowing gets in the way of going to the right place, widen. (widen) |