Mercurial > emacs
changeset 33352:bd48e8729dbb
(byte-compiling-files-p): New function.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 09 Nov 2000 23:01:40 +0000 |
| parents | 6d19f06da8a4 |
| children | efc926d28bd3 |
| files | lisp/emacs-lisp/bytecomp.el lisp/simple.el |
| diffstat | 2 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Thu Nov 09 22:30:39 2000 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Thu Nov 09 23:01:40 2000 +0000 @@ -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 @@ (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
--- a/lisp/simple.el Thu Nov 09 22:30:39 2000 +0000 +++ b/lisp/simple.el Thu Nov 09 23:01:40 2000 +0000 @@ -3966,4 +3966,12 @@ 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