Emacs: Do not hide the notes buffer when jumping to an error location.

ttencate · Mar 8, 2009 · 94f8159 · 94f8159
1 parent 040869c
commit 94f8159
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/emacs/scion.el b/emacs/scion.el
@@ -1763,7 +1763,13 @@ The overlay has several properties:
 (defun scion-goto-source-location (loc)
   (let ((file (scion-note.filename loc)))
     (when file
-      (find-file file)
+      (let ((buff (find-buffer-visiting file)))
+	(if buff
+	    (let ((buff-window (get-buffer-window buff)))
+	      (if buff-window
+		  (select-window buff-window)
+		(display-buffer buff)))
+	  (find-file-other-window file)))
       (goto-line (scion-note.line loc)))))
 
 (defun scion-list-compiler-notes (notes)