diff options
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/elint.el | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b56f64a5b79..021ae0db2c0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-11-24 Kevin Ryde <user42@zip.com.au> + + * emacs-lisp/elint.el (elint-add-required-env): Better error message + when .el source file not found or other error. + 2009-11-24 Markus Triska <markus.triska@gmx.at> * linum.el (linum-update-window): Ignore intangible (bug#4996). 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 |