[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/emacs-lisp elint.el
From: |
Kevin Ryde |
Subject: |
[Emacs-diffs] emacs/lisp/emacs-lisp elint.el |
Date: |
Tue, 24 Nov 2009 23:07:24 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Kevin Ryde <kryde> 09/11/24 23:07:24
Modified files:
lisp/emacs-lisp: elint.el
Log message:
* emacs-lisp/elint.el (elint-add-required-env): Better error message
when .el source file not found or other error.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/elint.el?cvsroot=emacs&r1=1.34&r2=1.35
Patches:
Index: elint.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/elint.el,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- elint.el 14 Nov 2009 19:57:12 -0000 1.34
+++ elint.el 24 Nov 2009 23:07:23 -0000 1.35
@@ -493,7 +493,7 @@
(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 @@
;;; (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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/emacs-lisp elint.el,
Kevin Ryde <=