Merge from emacs--devo--0

[gnu-emacs] / lisp / textmodes / ispell.el

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 900a2c36893948e4484e23259248f58eaad16dec..796a6a6d7e12ab51c5528325953a52330e022928 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1597,7 +1597,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)))))
@@ -1606,7 +1606,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)))))