[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3370298 2/3: Remove some XEmacs compat code from is
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 3370298 2/3: Remove some XEmacs compat code from ispell.el |
Date: |
Fri, 4 Oct 2019 09:30:23 -0400 (EDT) |
branch: master
commit 33702988d9b0ff7ba816bf3a78cfd2586e16744e
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove some XEmacs compat code from ispell.el
* lisp/textmodes/ispell.el (ispell-word): Remove XEmacs compat code.
---
lisp/textmodes/ispell.el | 7 +------
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 5c77e03..c1b21fd 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