Default ada_project_path to $ADA_PROJECT_PATH.
This commit is contained in:
parent
80e18d20ec
commit
95005d39eb
2 changed files with 7 additions and 2 deletions
|
@ -1,4 +1,9 @@
|
|||
2010-01-14 Stephen Leake <stephen_leake@member.fsf.org>2
|
||||
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'.
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue