Commit 9985d391 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

parent 651cd3da
......@@ -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
......
......@@ -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.")
;;; 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment