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

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_22_BASE
Changes by:     Stefan Monnier <monnier>        07/08/22 16:08:45

Index: lisp/emacs-lisp/bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.198.2.3
retrieving revision 2.198.2.4
diff -u -b -r2.198.2.3 -r2.198.2.4
--- lisp/emacs-lisp/bytecomp.el 22 Aug 2007 15:51:12 -0000      2.198.2.3
+++ lisp/emacs-lisp/bytecomp.el 22 Aug 2007 16:08:42 -0000      2.198.2.4
@@ -1821,6 +1821,7 @@
        ;; 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
@@ -1865,7 +1866,12 @@
        ;; 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))
+       (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.")))
       ;; 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))))