mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Gerd Moellmann 2000-11-09 23:01:40 +00:00
parent 651cd3dae2
commit 9985d3915e
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/emacs-lisp/bytecomp.el
View File

@ -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

8
lisp/simple.el
View File

@ -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