# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 973811056 0
# Node ID efc926d28bd3ce0b58d361c856a29f3f28b7fdfb
# Parent  bd48e8729dbb349fbb1bcfbb55ed51d905ccaabd
(toplevel): Use byte-compiling-files-p
if it is there.

diff -r bd48e8729dbb -r efc926d28bd3 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Thu Nov 09 23:01:40 2000 +0000
+++ b/lisp/textmodes/ispell.el	Thu Nov 09 23:04:16 2000 +0000
@@ -810,8 +810,9 @@
        (not xemacsp)
        'reload))
 
-(defvar ispell-library-path (unless (boundp 'byte-compile-current-file)
-			      (check-ispell-version))
+(defvar ispell-library-path (if (or (not (fboundp 'byte-compiling-files-p))
+				    (not (byte-compiling-files-p)))
+				(check-ispell-version))
   "The directory where ispell dictionaries reside.")
 
 (defvar ispell-process nil
@@ -828,7 +829,8 @@
 
 ;;;###autoload
 (if (and ispell-menu-map-needed
-	 (not (boundp 'byte-compile-current-file)))
+	 (or (not (fboundp 'byte-compiling-files-p))
+	     (not (byte-compiling-files-p))))
     (let ((dicts (reverse (cons (cons "default" nil) ispell-dictionary-alist)))
 	  ;; `ispell-library-path' intentionally not defined in autoload
 	  (path (and (boundp 'ispell-library-path) ispell-library-path))
@@ -861,7 +863,8 @@
 ;;; define commands in menu in opposite order you want them to appear.
 ;;;###autoload
 (if (and ispell-menu-map-needed
-	 (not (boundp 'byte-compile-current-file)))
+	 (or (not (fboundp 'byte-compiling-files-p))
+	     (not (byte-compiling-files-p))))
     (progn
       (define-key ispell-menu-map [ispell-change-dictionary]
 	'(menu-item "Change Dictionary..." ispell-change-dictionary
@@ -889,7 +892,8 @@
 
 ;;;###autoload
 (if (and ispell-menu-map-needed
-	 (not (boundp 'byte-compile-current-file)))
+	 (or (not (fboundp 'byte-compiling-files-p))
+	     (not (byte-compiling-files-p))))
     (progn
       (define-key ispell-menu-map [ispell-continue]
 	'(menu-item "Continue Spell-Checking" ispell-continue
@@ -907,7 +911,8 @@
 
 ;;;###autoload
 (if (and ispell-menu-map-needed
-	 (not (boundp 'byte-compile-current-file)))
+	 (or (not (fboundp 'byte-compiling-files-p))
+	     (not (byte-compiling-files-p))))
     (progn
       (define-key ispell-menu-map [ispell-region]
 	'(menu-item "Spell-Check Region" ispell-region