X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/170111814c0bd342c50ab84d3e3bf699c1bd1f1d..8c4f2e8d783e191f0a4e1ec0dc81bc0aceea4a1a:/packages/ada-mode/ada-build.el

diff --git a/packages/ada-mode/ada-build.el b/packages/ada-mode/ada-build.el
index 5a5af5fbc..1cc935f7d 100644
--- a/packages/ada-mode/ada-build.el
+++ b/packages/ada-mode/ada-build.el
@@ -185,7 +185,7 @@ Returns non-nil if a file is selected, nil otherwise."
   (interactive)
   (let ((ext (append ada-prj-file-extensions ada-prj-file-ext-extra))
 	filename)
-    (condition-case err
+    (condition-case nil
 	(setq filename
 	      (read-file-name
 	       "Project file: " ; prompt
@@ -199,7 +199,7 @@ Returns non-nil if a file is selected, nil otherwise."
 		 ;; return a directory.
 		 (or (file-accessible-directory-p name)
 		     (member (file-name-extension name) ext)))))
-      (err
+      (err                              ;FIXME: Shouldn't this be `error'?
        (setq filename nil))
       )