# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1187893196 0
# Node ID 1150fe1ceae5995d27995ca393c94f8f92683a85
# Parent  0a2e0422ddd55f3258e7091abca8a51ff9885adf
(byte-compile-from-buffer): Check old-style backquotes after each `read'
rather than once per buffer to get more precise location info.

diff -r 0a2e0422ddd5 -r 1150fe1ceae5 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Aug 23 18:18:26 2007 +0000
+++ b/lisp/ChangeLog	Thu Aug 23 18:19:56 2007 +0000
@@ -1,5 +1,8 @@
 2007-08-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* emacs-lisp/bytecomp.el (byte-compile-from-buffer): Check old-style
+	backquotes after each `read' rather than once per buffer.
+
 	* dframe.el: Remove spurious * in custom docstrings.
 	(dframe-xemacsp): Remove, use (featurep 'xemacs) instead.
 	(dframe-xemacs20p): Remove, inline at the sole use point.
diff -r 0a2e0422ddd5 -r 1150fe1ceae5 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Thu Aug 23 18:18:26 2007 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Thu Aug 23 18:19:56 2007 +0000
@@ -1821,7 +1821,6 @@
 	;; new in Emacs 22.1.
 	(read-with-symbol-positions inbuffer)
 	(read-symbol-positions-list nil)
-        (old-style-backquotes nil)
 	;;	  #### This is bound in b-c-close-variables.
 	;;	  (byte-compile-warnings (if (eq byte-compile-warnings t)
 	;;				     byte-compile-warning-types
@@ -1859,19 +1858,20 @@
 		 (not (eobp)))
 	  (setq byte-compile-read-position (point)
 		byte-compile-last-position byte-compile-read-position)
-	  (let ((form (read inbuffer)))
+	  (let* ((old-style-backquotes nil)
+                 (form (read inbuffer)))
+            ;; Warn about the use of old-style backquotes.
+            (when old-style-backquotes
+              (byte-compile-warn "!! The file uses old-style backquotes !!
+This functionality has been obsolete for more than 10 years already
+and will be removed soon.  See (elisp)Backquote in the manual."))
 	    (byte-compile-file-form form)))
 	;; Compile pending forms at end of file.
 	(byte-compile-flush-pending)
 	;; 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)
-        ;; Warn about the use of old-style backquotes.
-        (when old-style-backquotes
-          (byte-compile-warn "!! The file uses old-style backquotes !!
-This functionality has been obsolete for more than 10 years already
-and will be removed soon.  See (elisp)Backquote in the manual.")))
+	(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))))