X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/340a48c4eebe38fd0eff38986fb1e3eb1ebff691..5614e8da43643ed500c8695cb223e4cfda8f3fc1:/packages/ada-mode/gnat-core.el

diff --git a/packages/ada-mode/gnat-core.el b/packages/ada-mode/gnat-core.el
index 2637c8934..dad377a8c 100755
--- a/packages/ada-mode/gnat-core.el
+++ b/packages/ada-mode/gnat-core.el
@@ -166,9 +166,10 @@ Uses 'gnat list'. Returns new '(src-dirs prj-dirs)."
 	 (setq prj-dirs (cadr res))))
 
       (gpr_query
-       (require 'gpr-query)
-       (setq src-dirs (gpr-query-get-src-dirs src-dirs))
-       (setq prj-dirs (gpr-query-get-prj-dirs prj-dirs)))
+       (when (ada-prj-get 'gpr_file)
+	 (require 'gpr-query)
+	 (setq src-dirs (gpr-query-get-src-dirs src-dirs))
+	 (setq prj-dirs (gpr-query-get-prj-dirs prj-dirs))))
       )
 
     (setq project (plist-put project 'src_dir (reverse src-dirs)))