[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/elint.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/elint.el |
Date: |
Sat, 12 Sep 2009 18:48:26 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/12 18:48:25
Modified files:
lisp : ChangeLog
lisp/emacs-lisp: elint.el
Log message:
(elint-file): Make max-lisp-eval-depth at least 1000.
(elint-add-required-env): Don't beep on error.
(elint-forms): In case of error, return ENV unchanged.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16149&r2=1.16150
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/elint.el?cvsroot=emacs&r1=1.27&r2=1.28
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16149
retrieving revision 1.16150
diff -u -b -r1.16149 -r1.16150
--- ChangeLog 12 Sep 2009 14:58:55 -0000 1.16149
+++ ChangeLog 12 Sep 2009 18:48:22 -0000 1.16150
@@ -1,3 +1,10 @@
+2009-09-12 Glenn Morris <address@hidden>
+
+ * emacs-lisp/elint.el (elint-file): Make max-lisp-eval-depth at least
+ 1000.
+ (elint-add-required-env): Don't beep on error.
+ (elint-forms): In case of error, return ENV unchanged.
+
2009-09-12 Daiki Ueno <address@hidden>
* epg.el (epg-make-context): Add autoload cookie.
Index: emacs-lisp/elint.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/elint.el,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -b -r1.27 -r1.28
--- emacs-lisp/elint.el 12 Sep 2009 02:41:39 -0000 1.27
+++ emacs-lisp/elint.el 12 Sep 2009 18:48:25 -0000 1.28
@@ -178,7 +178,8 @@
;; elint-current-buffer clears log.
(with-temp-buffer
(insert-file-contents file)
- (let ((buffer-file-name file))
+ (let ((buffer-file-name file)
+ (max-lisp-eval-depth (max 1000 max-lisp-eval-depth)))
(with-syntax-table emacs-lisp-mode-syntax-table
(mapc 'elint-top-form (elint-update-env)))))
(elint-set-mode-line)
@@ -359,7 +360,6 @@
;;(message "Elint processed (require '%s)" name))
(error "Unable to find require'd library %s" name)))
(error
- (ding)
(message "Can't get variables from require'd library %s" name)))
env)
@@ -461,7 +461,8 @@
(dolist (f forms env)
(setq env (elint-form f env)))
;; Loop macro?
- (elint-error "Elint failed to parse form: %s" forms)))
+ (elint-error "Elint failed to parse form: %s" forms)
+ env))
(defun elint-unbound-variable (var env)
"T if VAR is unbound in ENV."
- [Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/elint.el,
Glenn Morris <=