Default ada_project_path to $ADA_PROJECT_PATH.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a5d84bee7873f56576ed2126f2478ef2a301e7e0..80b33e56a57335ad870449e6063c173905a72022 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
-2010-01-14  Stephen Leake  <stephen_leake@member.fsf.org>2
+2010-01-14  Stephen Leake  <stephen_leake@member.fsf.org>
+
+       * progmodes/ada-xref.el (ada-default-prj-properties):
+       Default ada_project_path to $ADA_PROJECT_PATH.
+
+2010-01-14  Stephen Leake  <stephen_leake@member.fsf.org>
 
        * progmodes/ada-mode.el (ada-create-keymap):
        Override `narrow-to-defun' with `ada-narrow-to-defun'.

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index dd54736ef0bdf79c81595fae4e2037d2f963558c..f3fd076c655819499c081799528575acffd1d759 100644 (file)
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -755,7 +755,7 @@ is non-nil, prompt the user to select one.  If none are found, return
   (let ((file (buffer-file-name nil)))
     (list
      ;; variable name alphabetical order
-     'ada_project_path  ""
+     'ada_project_path (let ((path (getenv "ADA_PROJECT_PATH"))) (if path path ""))
      'ada_project_path_sep  ada-prj-ada-project-path-sep
      'bind_opt        ada-prj-default-bind-opt
      'build_dir       default-directory