diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-08-27 21:33:31 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-08-27 21:33:31 -0400 |
| commit | 95888bca5db8d05e3a23a2288d2ec0775a429e2b (patch) | |
| tree | 462658f505f99b3deb40ef187335b2fb522bf171 /lisp/emacs-lisp | |
| parent | 63e984f8fd60ea26f438b9d5107173876a452324 (diff) | |
| download | emacs-95888bca5db8d05e3a23a2288d2ec0775a429e2b.tar.gz emacs-95888bca5db8d05e3a23a2288d2ec0775a429e2b.tar.bz2 emacs-95888bca5db8d05e3a23a2288d2ec0775a429e2b.zip | |
* lisp/emacs-lisp/cconv.el (cconv--analyse-function): Improve warning.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cconv.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index 70fa71a0da4..f688bff6f85 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -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) |