[Emacs-diffs] trunk r114035: * lisp/emacs-lisp/cconv.el (cconv--analyse-function): Improve warning.

[Stefan Monnier]

------------------------------------------------------------
revno: 114035
revision-id: address@hidden
parent: address@hidden
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2013-08-27 21:33:31 -0400
message:
  * lisp/emacs-lisp/cconv.el (cconv--analyse-function): Improve warning.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/cconv.el       cconv.el-20101015215845-f7w7g0kxa4xzdjdx-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-27 16:06:16 +0000
+++ b/lisp/ChangeLog    2013-08-28 01:33:31 +0000
@@ -1,3 +1,7 @@
+2013-08-28  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/cconv.el (cconv--analyse-function): Improve warning.
+
 2013-08-27  Juri Linkov  <address@hidden>
 
        * isearch.el (isearch-other-meta-char): Don't store kmacro commands
@@ -12,8 +16,8 @@
 2013-08-27  Martin Rudalics  <address@hidden>
 
        * window.el (display-buffer-use-some-window): Add missing
-       argument in call of get-largest-window (Bug#15185).  Reported by
-       Stephen Leake.
+       argument in call of get-largest-window (Bug#15185).
+       Reported by Stephen Leake.
 
 2013-08-27  Glenn Morris  <address@hidden>
 
@@ -38,8 +42,8 @@
        * net/tramp-adb.el (tramp-adb-maybe-open-connection):
        * net/tramp-gvfs.el (tramp-gvfs-maybe-open-connection):
        * net/tramp-sh.el (tramp-maybe-open-connection):
-       * net/tramp-smb.el (tramp-smb-maybe-open-connection): Apply
-       `tramp-check-proper-host'.
+       * net/tramp-smb.el (tramp-smb-maybe-open-connection):
+       Apply `tramp-check-proper-host'.
 
 2013-08-26  Tassilo Horn  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/cconv.el'
--- a/lisp/emacs-lisp/cconv.el  2013-06-14 02:31:28 +0000
+++ b/lisp/emacs-lisp/cconv.el  2013-08-28 01:33:31 +0000
@@ -552,7 +552,8 @@
       (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)