# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 973786144 0
# Node ID b8015b527f27848ba5935cf6537a287d23482ea7
# Parent  af3d766a1234e6c472a59a5a52224aa071b07570
(ispell-library-path): Don't call
check-ispell-version when byte-compiling because that starts
an ispell process, and ispell might not be installed.
(toplevel): Don't set up a menu when byte-compiling.

diff -r af3d766a1234 -r b8015b527f27 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Thu Nov 09 16:07:56 2000 +0000
+++ b/lisp/textmodes/ispell.el	Thu Nov 09 16:09:04 2000 +0000
@@ -810,7 +810,8 @@
        (not xemacsp)
        'reload))
 
-(defvar ispell-library-path (check-ispell-version)
+(defvar ispell-library-path (unless (boundp 'byte-compile-current-file)
+			      (check-ispell-version))
   "The directory where ispell dictionaries reside.")
 
 (defvar ispell-process nil
@@ -826,7 +827,8 @@
   "Non-nil means that the OS supports asynchronous processes.")
 
 ;;;###autoload
-(if ispell-menu-map-needed
+(if (and ispell-menu-map-needed
+	 (not (boundp 'byte-compile-current-file)))
     (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))
@@ -858,7 +860,8 @@
 
 ;;; define commands in menu in opposite order you want them to appear.
 ;;;###autoload
-(if ispell-menu-map-needed
+(if (and ispell-menu-map-needed
+	 (not (boundp 'byte-compile-current-file)))
     (progn
       (define-key ispell-menu-map [ispell-change-dictionary]
 	'(menu-item "Change Dictionary..." ispell-change-dictionary
@@ -885,7 +888,8 @@
 		    :help "Complete word fragment at cursor"))))
 
 ;;;###autoload
-(if ispell-menu-map-needed
+(if (and ispell-menu-map-needed
+	 (not (boundp 'byte-compile-current-file)))
     (progn
       (define-key ispell-menu-map [ispell-continue]
 	'(menu-item "Continue Spell-Checking" ispell-continue
@@ -902,7 +906,8 @@
 		    :help "Spell-check only comments and strings"))))
 
 ;;;###autoload
-(if ispell-menu-map-needed
+(if (and ispell-menu-map-needed
+	 (not (boundp 'byte-compile-current-file)))
     (progn
       (define-key ispell-menu-map [ispell-region]
 	'(menu-item "Spell-Check Region" ispell-region