diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-07 05:58:05 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-07 05:58:05 +0200 |
| commit | 1c4719e7267c88057e4272d40300e62416ab0235 (patch) | |
| tree | 080e33dc36be49bd2193ee849c89d449b4ab37e0 | |
| parent | 9d596fa6baed97d8ca57b76934c100d0f7fedcae (diff) | |
| download | geiser-1c4719e7267c88057e4272d40300e62416ab0235.tar.gz geiser-1c4719e7267c88057e4272d40300e62416ab0235.tar.bz2 | |
Reuse soruce window when navigating errors
| -rw-r--r-- | elisp/geiser-edit.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el index 8af56c8..08eab53 100644 --- a/elisp/geiser-edit.el +++ b/elisp/geiser-edit.el @@ -41,7 +41,7 @@ or following links in error buffers.") ;;; Auxiliar functions: (defun geiser-edit--visit-file (file method) - (cond ((eq method 'window) (find-file-other-window file)) + (cond ((eq method 'window) (pop-to-buffer (find-file-noselect file t))) ((eq method 'frame) (find-file-other-frame file)) ((eq method 'noselect) (find-file-noselect file t)) (t (find-file file)))) |