- (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))))