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

when .el source file not found or other error.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b56f64a5b79030679b045e807129dee06bff58d0..021ae0db2c001da23f2c85bc8c3767ca2a5ef2a5 100644 (file)
--- 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 bcb399c23f3fb93798b213f286d3d65836bf015d..4cbd6aaa5525032a4c7f74cf7609c411596b1851 100644 (file)
--- 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