# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1263475000 -3600
# Node ID 7d6d38782123b983352f631bb358b9fd9e683a89
# Parent  7fd22a65b1a9733c3ef6ec603499dcd4abfa2c74# Parent  fbb584e66cf6201fc56d9be6f9065aea1951880b
* progmodes/ada-xref.el: Default ada_project_path to $ADA_PROJECT_PATH.

diff -r 7fd22a65b1a9 -r 7d6d38782123 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 14 13:57:07 2010 +0100
+++ b/lisp/ChangeLog	Thu Jan 14 14:16:40 2010 +0100
@@ -1,4 +1,14 @@
-2010-01-14  Stephen Leake  <stephen_leake@member.fsf.org>2
+2010-01-14  Juanma Barranquero  <lekktu@gmail.com>
+
+	* progmodes/ada-xref.el (ada-default-prj-properties):
+	Simplify previous change.
+
+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 -r 7fd22a65b1a9 -r 7d6d38782123 lisp/progmodes/ada-xref.el
--- a/lisp/progmodes/ada-xref.el	Thu Jan 14 13:57:07 2010 +0100
+++ b/lisp/progmodes/ada-xref.el	Thu Jan 14 14:16:40 2010 +0100
@@ -755,7 +755,7 @@
   (let ((file (buffer-file-name nil)))
     (list
      ;; variable name alphabetical order
-     'ada_project_path  ""
+     'ada_project_path (or (getenv "ADA_PROJECT_PATH") "")
      'ada_project_path_sep  ada-prj-ada-project-path-sep
      'bind_opt        ada-prj-default-bind-opt
      'build_dir       default-directory