[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el,v

[Alan Mackenzie]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Alan Mackenzie <acmacm> 07/07/24 08:18:12

Index: bytecomp.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.202
retrieving revision 2.203
diff -u -b -r2.202 -r2.203
--- bytecomp.el 14 Jun 2007 21:25:11 -0000      2.202
+++ bytecomp.el 24 Jul 2007 08:18:12 -0000      2.203
@@ -480,7 +480,8 @@
 
 (defvar byte-compile-unresolved-functions nil
   "Alist of undefined functions to which calls have been compiled.
-Used for warnings when the function is not known to be defined or is later
+This variable is only significant whilst compiling an entire buffer.
+Used for warnings when a function is not known to be defined or is later
 defined with incorrect args.")
 
 (defvar byte-compile-noruntime-functions nil
@@ -1849,6 +1850,11 @@
       (and filename (byte-compile-insert-header filename inbuffer outbuffer))
       (with-current-buffer inbuffer
        (goto-char (point-min))
+       ;; Should we always do this?  When calling multiple files, it
+       ;; would be useful to delay this warning until all have been
+       ;; compiled.  A: Yes!  b-c-u-f might contain dross from a
+       ;; previous byte-compile.
+       (setq byte-compile-unresolved-functions nil)
 
        ;; Compile the forms from the input buffer.
        (while (progn
@@ -1865,11 +1871,7 @@
        ;; Make warnings about unresolved functions
        ;; give the end of the file as their position.
        (setq byte-compile-last-position (point-max))
-       (byte-compile-warn-about-unresolved-functions)
-       ;; Should we always do this?  When calling multiple files, it
-       ;; would be useful to delay this warning until all have
-       ;; been compiled.
-       (setq byte-compile-unresolved-functions nil))
+       (byte-compile-warn-about-unresolved-functions))
       ;; Fix up the header at the front of the output
       ;; if the buffer contains multibyte characters.
       (and filename (byte-compile-fix-header filename inbuffer outbuffer))))