1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00

* lisp/emacs-lisp/cconv.el (cconv--analyse-function): Improve warning.

This commit is contained in:
Stefan Monnier 2013-08-27 21:33:31 -04:00
parent 63e984f8fd
commit 95888bca5d
2 changed files with 10 additions and 5 deletions

View file

@ -552,7 +552,8 @@ FORM is the parent form that binds this var."
(cond
((byte-compile-not-lexical-var-p arg)
(byte-compile-log-warning
(format "Argument %S is not a lexical variable" arg)))
(format "Lexical argument shadows the dynamic variable %S"
arg)))
((eq ?& (aref (symbol-name arg) 0)) nil) ;Ignore &rest, &optional, ...
(t (let ((varstruct (list arg nil nil nil nil)))
(cl-pushnew arg byte-compile-lexical-variables)