diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-04 15:24:42 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-10-04 15:29:47 +0200 |
| commit | 33702988d9b0ff7ba816bf3a78cfd2586e16744e (patch) | |
| tree | 31159aad899460997ba417f8e385368415bc42bd /lisp/textmodes | |
| parent | b0ef37758ea4b15816e9adb36120862f1eb551d9 (diff) | |
| download | emacs-33702988d9b0ff7ba816bf3a78cfd2586e16744e.tar.gz emacs-33702988d9b0ff7ba816bf3a78cfd2586e16744e.tar.bz2 emacs-33702988d9b0ff7ba816bf3a78cfd2586e16744e.zip | |
Remove some XEmacs compat code from ispell.el
* lisp/textmodes/ispell.el (ispell-word): Remove XEmacs compat code.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/ispell.el | 7 |
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 |