From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 29 Oct 2008 15:51:12 +0000 (+0000)
Subject: (ispell-word): Use use-region-p.
X-Git-Tag: emacs-pretest-23.0.90~2111
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea03187d0d21f9ed87fd171c779f1942a4247fbe;p=emacs.git

(ispell-word): Use use-region-p.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index d6a5da48d35..ff5cb5ec0c9 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1568,8 +1568,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 transient-mark-mode mark-active
-	 (not (eq (region-beginning) (region-end))))
+   ((and region (use-region-p))
     (ispell-region (region-beginning) (region-end)))
    (continue (ispell-continue))
    (t