mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source 
if it is there.
This commit is contained in:
Gerd Moellmann 2000-11-09 23:05:07 +00:00
parent 9985d3915e
commit 730c746cac
2 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ChangeLog
View File

@ -1,5 +1,13 @@
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.

17
lisp/textmodes/ispell.el
View File

@ -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