Mercurial > emacs
changeset 104985:25639b195258
(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.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 12 Sep 2009 18:48:22 +0000 |
| parents | b4987ada532f |
| children | 00c7c0e3f902 |
| files | lisp/ChangeLog lisp/emacs-lisp/elint.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 12 14:58:55 2009 +0000 +++ b/lisp/ChangeLog Sat Sep 12 18:48:22 2009 +0000 @@ -1,3 +1,10 @@ +2009-09-12 Glenn Morris <rgm@gnu.org> + + * 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 <ueno@unixuser.org> * epg.el (epg-make-context): Add autoload cookie.
--- a/lisp/emacs-lisp/elint.el Sat Sep 12 14:58:55 2009 +0000 +++ b/lisp/emacs-lisp/elint.el Sat Sep 12 18:48:22 2009 +0000 @@ -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."