Remove some XEmacs compat code from ispell.el

* lisp/textmodes/ispell.el (ispell-word): Remove XEmacs compat code.

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 5c77e03b0b256d8984d4797f04a633ae2973dde1..c1b21fdd2eb1e924424b216f98ce32103170cc97 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1932,12 +1932,7 @@ nil           word is correct or spelling is accepted.
 quit          spell session exited."
   (interactive (list ispell-following-word ispell-quietly current-prefix-arg t))
   (cond
-   ((and region
-        (if (featurep 'emacs)
-            (use-region-p)
-          (and (boundp 'transient-mark-mode) transient-mark-mode
-               (boundp 'mark-active) mark-active
-               (not (eq (region-beginning) (region-end))))))
+   ((and region (use-region-p))
     (ispell-region (region-beginning) (region-end)))
    (continue (ispell-continue))
    (t