Remove some XEmacs compat code from ispell.el

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

1 files changed, 1 insertions, 6 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 5c77e03b0b2..c1b21fdd2eb 100644
--- 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