Commit f52ef739 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(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.
parent 6a619620
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment