(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))
)