(byte-compile-current-file): Don't bind

it, so that a boundp test can be used to determine if we're
currently byte-compiling.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 1c75f5e5736a740eb3cb6a030e3e0bd04aa4dd07..928d3fe4db43fe3a050706dd67a3484a4abfe5a4 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -10,7 +10,7 @@
 
 ;;; This version incorporates changes up to version 2.10 of the
 ;;; Zawinski-Furuseth compiler.
-(defconst byte-compile-version "$Revision: 2.78 $")
+(defconst byte-compile-version "$Revision: 2.79.1.1 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -792,9 +792,11 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
 ;;; byte compiler messages
 
 (defvar byte-compile-current-form nil)
-(defvar byte-compile-current-file nil)
 (defvar byte-compile-dest-file nil)
 
+;; Don't actually bind this.
+(defvar byte-compile-current-file)
+
 (defmacro byte-compile-log (format-string &rest args)
   (list 'and
        'byte-optimize