Mercurial > emacs
changeset 106834:7d6d38782123
* progmodes/ada-xref.el: Default ada_project_path to $ADA_PROJECT_PATH.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 14 Jan 2010 14:16:40 +0100 |
| parents | 7fd22a65b1a9 (current diff) fbb584e66cf6 (diff) |
| children | a3b4c6fc276c |
| files | |
| diffstat | 2 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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'.
--- 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