]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/ada-mode/ada-build.el
release ada-mode 5.1.7, wisi 1.1.0; minor format changes in ada-ref-man (take 2)
[gnu-emacs-elpa] / packages / ada-mode / ada-build.el
old mode 100755 (executable)
new mode 100644 (file)
index 5ed84fe..6166836
@@ -141,7 +141,7 @@ including the directory and extension."
     )))
 
 (defun ada-build-select-default-prj ()
-  "Create and select a new default project, with current buffer as main program."
+  "Create and select a new default project."
   (let ((prj-file (expand-file-name "default.adp"))
        project)
 
@@ -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
+      (error
        (setq filename nil))
       )