From: Stephen Leake Date: Thu, 14 Jan 2010 13:12:05 +0000 (+0100) Subject: Default ada_project_path to $ADA_PROJECT_PATH. X-Git-Tag: emacs-pretest-23.1.92~38^2^2~13 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=95005d39eb75a280c36a0f91eb11fc005fd5cf6a;p=emacs.git Default ada_project_path to $ADA_PROJECT_PATH. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a5d84bee787..80b33e56a57 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,9 @@ -2010-01-14 Stephen Leake 2 +2010-01-14 Stephen Leake + + * progmodes/ada-xref.el (ada-default-prj-properties): + Default ada_project_path to $ADA_PROJECT_PATH. + +2010-01-14 Stephen Leake * 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 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