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 | 9ecfebdfd5d3361c643c2b16b9fb7771122b0e82 (patch) | |
| tree | 46219aacd5d114b724f8629d3d0dbd7455ac1912 | |
| parent | acd2cde3b603bcc48dc02337398f7418bad3fa29 (diff) | |
| download | geiser-chez-9ecfebdfd5d3361c643c2b16b9fb7771122b0e82.tar.gz geiser-chez-9ecfebdfd5d3361c643c2b16b9fb7771122b0e82.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)))) |