[Emacs-diffs] /srv/bzr/emacs/trunk r99327: * progmodes/ada-xref.el: Default ada_project_path to $ADA_PROJECT_PATH.

[Juanma Barranquero]

------------------------------------------------------------
revno: 99327 [merge]
author: Stephen Leake <address@hidden>
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2010-01-14 14:16:40 +0100
message:
  * progmodes/ada-xref.el: Default ada_project_path to $ADA_PROJECT_PATH.
modified:
  lisp/ChangeLog
  lisp/progmodes/ada-xref.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-01-14 12:57:07 +0000
+++ b/lisp/ChangeLog    2010-01-14 13:14:24 +0000
@@ -1,4 +1,14 @@
-2010-01-14  Stephen Leake  <address@hidden>2
+2010-01-14  Juanma Barranquero  <address@hidden>
+
+       * progmodes/ada-xref.el (ada-default-prj-properties):
+       Simplify previous change.
+
+2010-01-14  Stephen Leake  <address@hidden>
+
+       * progmodes/ada-xref.el (ada-default-prj-properties):
+       Default ada_project_path to $ADA_PROJECT_PATH.
+
+2010-01-14  Stephen Leake  <address@hidden>
 
        * progmodes/ada-mode.el (ada-create-keymap):
        Override `narrow-to-defun' with `ada-narrow-to-defun'.

=== modified file 'lisp/progmodes/ada-xref.el'
--- a/lisp/progmodes/ada-xref.el        2010-01-13 08:35:10 +0000
+++ b/lisp/progmodes/ada-xref.el        2010-01-14 13:14:24 +0000
@@ -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