diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-24 15:14:52 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-01-24 15:14:52 +0000 |
| commit | a445370f16f05f2b546894908921a5c345c55f94 (patch) | |
| tree | 63fce8b4674c88448e746d23cab926c8c770aa82 /lisp/textmodes/ispell.el | |
| parent | 845ec007da2bc3b649ca9ecf113fda697e9314cb (diff) | |
| download | emacs-a445370f16f05f2b546894908921a5c345c55f94.tar.gz emacs-a445370f16f05f2b546894908921a5c345c55f94.tar.bz2 emacs-a445370f16f05f2b546894908921a5c345c55f94.zip | |
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
* message.el (message-beginning-of-line): Use featurep instead of bound
tests in order to resolve conditionals at compile time.
* textmodes/reftex-toc.el (reftex-toc-next, reftex-toc-previous)
(reftex-toc-restore-region):
* textmodes/reftex-index.el (reftex-index-initialize-phrases-buffer)
(reftex-index-phrases-apply-to-region):
* textmodes/ispell.el (ispell-word):
* progmodes/vhdl-mode.el (vhdl-keep-region-active):
* progmodes/pascal.el (pascal-mark-defun):
* progmodes/f90.el (f90-mark-subprogram, f90-indent-region)
(f90-fill-region):
* emulation/tpu-edt.el (tpu-set-mark):
* emulation/crisp.el (crisp-region-active):
* winner.el (winner-active-region):
* ansi-color.el (ansi-color-set-extent-face): Use featurep instead
of bound tests in order to resolve conditionals at compile time.
Diffstat (limited to 'lisp/textmodes/ispell.el')
| -rw-r--r-- | lisp/textmodes/ispell.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 813b26ee6e4..fcb1d2444ec 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1627,7 +1627,7 @@ quit spell session exited." (or quietly (message "%s is correct" (funcall ispell-format-word-function word))) - (and (fboundp 'extent-at) + (and (featurep 'xemacs) (extent-at start) (and (fboundp 'delete-extent) (delete-extent (extent-at start))))) @@ -1636,7 +1636,7 @@ quit spell session exited." (message "%s is correct because of root %s" (funcall ispell-format-word-function word) (funcall ispell-format-word-function poss))) - (and (fboundp 'extent-at) + (and (featurep 'xemacs) (extent-at start) (and (fboundp 'delete-extent) (delete-extent (extent-at start))))) |