From 95005d39eb75a280c36a0f91eb11fc005fd5cf6a Mon Sep 17 00:00:00 2001
From: Stephen Leake <stephen_leake@member.fsf.org>
Date: Thu, 14 Jan 2010 14:12:05 +0100
Subject: Default ada_project_path to $ADA_PROJECT_PATH.

---
 lisp/progmodes/ada-xref.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisp/progmodes/ada-xref.el')

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index dd54736ef0b..f3fd076c655 100644
--- 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
-- 
cgit v1.2.1