Mercurial > emacs
comparison lisp/progmodes/ada-xref.el @ 106832:30e3c13d2383
Default ada_project_path to $ADA_PROJECT_PATH.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 14 Jan 2010 14:12:05 +0100 |
| parents | 1d1d5d9bd884 |
| children | fbb584e66cf6 |
comparison
equal
deleted
inserted
replaced
| 106831:7fd22a65b1a9 | 106832:30e3c13d2383 |
|---|---|
| 753 "Return the default project properties list with the current buffer as main." | 753 "Return the default project properties list with the current buffer as main." |
| 754 | 754 |
| 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 |
| 762 'casing (if (listp ada-case-exception-file) | 762 'casing (if (listp ada-case-exception-file) |
| 763 ada-case-exception-file | 763 ada-case-exception-file |