* emacs-lisp/elint.el (elint-add-required-env): Better error message

when .el source file not found or other error.

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