From: Kevin Ryde <user42@zip.com.au>
Date: Tue, 24 Nov 2009 23:08:15 +0000 (+0000)
Subject: * emacs-lisp/elint.el (elint-add-required-env): Better error message
X-Git-Tag: emacs-pretest-23.1.90~243
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4cf8971b400ff41bfe3609f0d0626e8119555766;p=emacs.git

* 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 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