diff options
| author | Stephen Leake | 2010-01-14 14:12:05 +0100 |
|---|---|---|
| committer | Juanma Barranquero | 2010-01-14 14:12:05 +0100 |
| commit | 95005d39eb75a280c36a0f91eb11fc005fd5cf6a (patch) | |
| tree | ecf96d0cc67a5b42e6fb4eb39131e1c07d645ba8 /lisp/progmodes | |
| parent | 80e18d20ec6a73b417c9ec4d18e433d1cff5a95f (diff) | |
| download | emacs-95005d39eb75a280c36a0f91eb11fc005fd5cf6a.tar.gz emacs-95005d39eb75a280c36a0f91eb11fc005fd5cf6a.zip | |
Default ada_project_path to $ADA_PROJECT_PATH.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 755 | (let ((file (buffer-file-name nil))) | 755 | (let ((file (buffer-file-name nil))) |
| 756 | (list | 756 | (list |
| 757 | ;; variable name alphabetical order | 757 | ;; variable name alphabetical order |
| 758 | 'ada_project_path "" | 758 | 'ada_project_path (let ((path (getenv "ADA_PROJECT_PATH"))) (if path path "")) |
| 759 | 'ada_project_path_sep ada-prj-ada-project-path-sep | 759 | 'ada_project_path_sep ada-prj-ada-project-path-sep |
| 760 | 'bind_opt ada-prj-default-bind-opt | 760 | 'bind_opt ada-prj-default-bind-opt |
| 761 | 'build_dir default-directory | 761 | 'build_dir default-directory |