From f52ef7391257a911434cc4a1cf283a95b6aaa7bd Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 9 Nov 2000 16:09:04 +0000 Subject: [PATCH] (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. --- lisp/textmodes/ispell.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index b85a75ec382..fcb182c7842 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -810,7 +810,8 @@ and added as a submenu of the \"Edit\" menu.") (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 @@ and added as a submenu of the \"Edit\" menu.") "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 @@ and added as a submenu of the \"Edit\" menu.") ;;; 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 @@ and added as a submenu of the \"Edit\" menu.") :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 @@ and added as a submenu of the \"Edit\" menu.") :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 -- 2.39.5