diff options
| author | Kevin Ryde <user42@zip.com.au> | 2009-11-24 23:08:15 +0000 |
|---|---|---|
| committer | Kevin Ryde <user42@zip.com.au> | 2009-11-24 23:08:15 +0000 |
| commit | 4cf8971b400ff41bfe3609f0d0626e8119555766 (patch) | |
| tree | f8797291f87bdd1fe3c75130d3b2140fa353088d /lisp/emacs-lisp | |
| parent | d204c46c611f765886f1079d1a93865ba2beacbb (diff) | |
| download | emacs-4cf8971b400ff41bfe3609f0d0626e8119555766.tar.gz emacs-4cf8971b400ff41bfe3609f0d0626e8119555766.tar.bz2 emacs-4cf8971b400ff41bfe3609f0d0626e8119555766.zip | |
* emacs-lisp/elint.el (elint-add-required-env): Better error message
when .el source file not found or other error.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/elint.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index bcb399c23f3..4cbd6aaa552 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -493,7 +493,7 @@ Return nil if there are no more forms, t otherwise." (defun elint-add-required-env (env name file) "Augment ENV with the variables defined by feature NAME in FILE." - (condition-case nil + (condition-case err (let* ((libname (if (stringp file) file (symbol-name name))) @@ -518,9 +518,10 @@ Return nil if there are no more forms, t otherwise." ;;; (elint-update-env)) ;;; (setq env (elint-env-add-env env elint-buffer-env)))) ;;(message "Elint processed (require '%s)" name)) - (error "Unable to find require'd library %s" name))) + (error "%s.el not found in load-path" libname))) (error - (message "Can't get variables from require'd library %s" name))) + (message "Can't get variables from require'd library %s: %s" + name (error-message-string err)))) env) (defvar elint-top-form nil |