From 95005d39eb75a280c36a0f91eb11fc005fd5cf6a Mon Sep 17 00:00:00 2001 From: Stephen Leake 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