Commit 730c746c authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(toplevel): Use byte-compiling-files-p

if it is there.
parent 9985d391
2000-11-09 Gerd Moellmann <gerd@gnu.org>
* simple.el (byte-compiling-files-p): New function.
* textmodes/ispell.el (toplevel): Use byte-compiling-files-p
if it is there.
* emacs-lisp/bytecomp.el (byte-compile-current-file): Bind it to
nil again.
* textmodes/ispell.el (ispell-library-path): Don't call
check-ispell-version when byte-compiling because that starts
an ispell process, and ispell might not be installed.
......
......@@ -810,8 +810,9 @@ and added as a submenu of the \"Edit\" menu.")
(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 @@ and added as a submenu of the \"Edit\" menu.")
;;;###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 @@ and added as a submenu of the \"Edit\" menu.")
;;; 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 @@ and added as a submenu of the \"Edit\" menu.")
;;;###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 @@ and added as a submenu of the \"Edit\" menu.")
;;;###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
......
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