Simplify previous change.

8794c483 · Juanma Barranquero · 95005d39 · 8794c483 · 8794c483
Commit 8794c483 authored Jan 14, 2010 by Juanma Barranquero
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/progmodes/ada-xref.el lisp/progmodes/ada-xref.el +1 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+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
+++ b/lisp/progmodes/ada-xref.el
@@ -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 (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