)))
(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)
(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
;; return a directory.
(or (file-accessible-directory-p name)
(member (file-name-extension name) ext)))))
- (err
+ (error
(setq filename nil))
)