X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/fab13fef39e68b3511d5c5d73673022fe73bc9b0..790d13440166d9e79ee10a952aa47a87423f1d65:/packages/ada-mode/ada-gnat-xref.el

diff --git a/packages/ada-mode/ada-gnat-xref.el b/packages/ada-mode/ada-gnat-xref.el
index a1f5684d5..df2d2d6c9 100755
--- a/packages/ada-mode/ada-gnat-xref.el
+++ b/packages/ada-mode/ada-gnat-xref.el
@@ -90,7 +90,6 @@
 	    ))
 
 	(when (eobp)
-	  (pop-to-buffer (current-buffer))
 	  (error "gnat find did not return other item"))
 	))
     result))
@@ -136,7 +135,6 @@
 	      (forward-line 1)))
 	  )
 	(when (eobp)
-	  (pop-to-buffer (current-buffer))
 	  (error "gnat find did not return parent types"))
 	))
 
@@ -186,6 +184,7 @@
   (setq ada-xref-other-function  'ada-gnat-xref-other)
   (setq ada-xref-parent-function 'ada-gnat-xref-parents)
   (setq ada-xref-all-function    'ada-gnat-xref-all)
+  (setq ada-show-xref-tool-buffer 'ada-gnat-show-run-buffer)
 
   ;; gnatmake -gnatD generates files with .dg extensions. But we don't
   ;; need to navigate between them.
@@ -207,6 +206,7 @@
   (setq ada-xref-other-function  nil)
   (setq ada-xref-parent-function nil)
   (setq ada-xref-all-function    nil)
+  (setq ada-show-xref-tool-buffer nil)
 
   (setq completion-ignored-extensions (delete ".ali" completion-ignored-extensions))
   (setq compilation-error-regexp-alist (delete 'gnat compilation-error-regexp-alist))