From 1c4719e7267c88057e4272d40300e62416ab0235 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 7 Sep 2010 05:58:05 +0200 Subject: Reuse soruce window when navigating errors --- elisp/geiser-edit.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'elisp/geiser-edit.el') 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)))) -- cgit v1.2.3