mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Chong Yidong 2008-10-29 15:51:12 +00:00
parent 21d57aa225
commit ea03187d0d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/textmodes/ispell.el
View File

@ -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