procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Default ada_project_path to $ADA_PROJECT_PATH.

Browse source
This commit is contained in:
Stephen Leake 2010-01-14 14:12:05 +01:00 • committed by Juanma Barranquero
parent 80e18d20ec
commit 95005d39eb
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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): * progmodes/ada-mode.el (ada-create-keymap):
Override `narrow-to-defun' with `ada-narrow-to-defun'. Override `narrow-to-defun' with `ada-narrow-to-defun'.

2
lisp/progmodes/ada-xref.el
View file

@ -755,7 +755,7 @@ is non-nil, prompt the user to select one. If none are found, return
(let ((file (buffer-file-name nil))) (let ((file (buffer-file-name nil)))
(list (list
;; variable name alphabetical order ;; 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 'ada_project_path_sep ada-prj-ada-project-path-sep
'bind_opt ada-prj-default-bind-opt 'bind_opt ada-prj-default-bind-opt
'build_dir default-directory 'build_dir default-directory