mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(elint-file): Make max-lisp-eval-depth at least 1000.

Browse Source 
(elint-add-required-env): Don't beep on error.
(elint-forms): In case of error, return ENV unchanged.
This commit is contained in:
Glenn Morris 2009-09-12 18:48:22 +00:00
parent d85889e4c0
commit bf01513fff
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ChangeLog
View File

@ -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.

7
lisp/emacs-lisp/elint.el
View File

@ -178,7 +178,8 @@ This environment can be passed to `macroexpand'."
;; 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 @@ Return nil if there are no more forms, t otherwise."
;;(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 @@ The environment created by the form is returned."
(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."