mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +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> 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 * textmodes/ispell.el (ispell-library-path): Don't call
check-ispell-version when byte-compiling because that starts check-ispell-version when byte-compiling because that starts
an ispell process, and ispell might not be installed. 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) (not xemacsp)
'reload)) 'reload))
(defvar ispell-library-path (unless (boundp 'byte-compile-current-file) (defvar ispell-library-path (if (or (not (fboundp 'byte-compiling-files-p))
(check-ispell-version)) (not (byte-compiling-files-p)))
(check-ispell-version))
"The directory where ispell dictionaries reside.") "The directory where ispell dictionaries reside.")
(defvar ispell-process nil (defvar ispell-process nil
@ -828,7 +829,8 @@ and added as a submenu of the \"Edit\" menu.")
;;;###autoload ;;;###autoload
(if (and ispell-menu-map-needed (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))) (let ((dicts (reverse (cons (cons "default" nil) ispell-dictionary-alist)))
;; `ispell-library-path' intentionally not defined in autoload ;; `ispell-library-path' intentionally not defined in autoload
(path (and (boundp 'ispell-library-path) ispell-library-path)) (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. ;;; define commands in menu in opposite order you want them to appear.
;;;###autoload ;;;###autoload
(if (and ispell-menu-map-needed (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 (progn
(define-key ispell-menu-map [ispell-change-dictionary] (define-key ispell-menu-map [ispell-change-dictionary]
'(menu-item "Change Dictionary..." ispell-change-dictionary '(menu-item "Change Dictionary..." ispell-change-dictionary
@ -889,7 +892,8 @@ and added as a submenu of the \"Edit\" menu.")
;;;###autoload ;;;###autoload
(if (and ispell-menu-map-needed (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 (progn
(define-key ispell-menu-map [ispell-continue] (define-key ispell-menu-map [ispell-continue]
'(menu-item "Continue Spell-Checking" ispell-continue '(menu-item "Continue Spell-Checking" ispell-continue
@ -907,7 +911,8 @@ and added as a submenu of the \"Edit\" menu.")
;;;###autoload ;;;###autoload
(if (and ispell-menu-map-needed (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 (progn
(define-key ispell-menu-map [ispell-region] (define-key ispell-menu-map [ispell-region]
'(menu-item "Spell-Check Region" ispell-region '(menu-item "Spell-Check Region" ispell-region