(byte-compiling-files-p): New function.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 928d3fe4db43fe3a050706dd67a3484a4abfe5a4..fd42f6bcf97890512a9af6ebb37f74062a201310 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.79.1.1 $")
+(defconst byte-compile-version "$Revision: 2.80 $")
 
 ;; This file is part of GNU Emacs.
 
@@ -793,9 +793,7 @@ Each function's symbol gets marked with the `byte-compile-noruntime' property."
 
 (defvar byte-compile-current-form nil)
 (defvar byte-compile-dest-file nil)
-
-;; Don't actually bind this.
-(defvar byte-compile-current-file)
+(defvar byte-compile-current-file nil)
 
 (defmacro byte-compile-log (format-string &rest args)
   (list 'and

diff --git a/lisp/simple.el b/lisp/simple.el
index 55e0460751e4e964ac31e26048e71143951de221..155f8468d5aacdb18512a9207119ad5e8c141c5f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3966,4 +3966,12 @@ corresponing syntax code as it is stored in a syntax cell, and
 can be used as value of a `syntax-table' property.
 DESCRIPTION is the descriptive string for the syntax.")
 
+\f
+;;; Misc
+
+(defun byte-compiling-files-p ()
+  "Return t if currently byte-compiling files."
+  (and (boundp 'byte-compile-current-file)
+       (stringp byte-compile-current-file)))
+   
 ;;; simple.el ends here