Mercurial > emacs

changeset 106833:fbb584e66cf6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Simplify previous change.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 14 Jan 2010 14:14:24 +0100
parents 30e3c13d2383
children 7d6d38782123
files lisp/ChangeLog lisp/progmodes/ada-xref.el
diffstat 2 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Jan 14 14:12:05 2010 +0100
+++ b/lisp/ChangeLog	Thu Jan 14 14:14:24 2010 +0100
@@ -1,3 +1,8 @@
+2010-01-14  Juanma Barranquero  <lekktu@gmail.com>
+
+	* progmodes/ada-xref.el (ada-default-prj-properties):
+	Simplify previous change.
+
 2010-01-14  Stephen Leake  <stephen_leake@member.fsf.org>
 
 	* progmodes/ada-xref.el (ada-default-prj-properties):
--- a/lisp/progmodes/ada-xref.el	Thu Jan 14 14:12:05 2010 +0100
+++ b/lisp/progmodes/ada-xref.el	Thu Jan 14 14:14:24 2010 +0100
@@ -755,7 +755,7 @@
   (let ((file (buffer-file-name nil)))
     (list
      ;; variable name alphabetical order
-     'ada_project_path (let ((path (getenv "ADA_PROJECT_PATH"))) (if path 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