diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2014-12-19 18:59:54 +0100 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2014-12-19 18:59:54 +0100 |
| commit | 164cdfbf9e75a891bd8944a79f53bd403c6c2215 (patch) | |
| tree | a288c9ef628218036427d112be46c3e6afc70ca7 /lisp/textmodes/ispell.el | |
| parent | 061f310c4a32491634b7563f4b8520f4824ed21b (diff) | |
| download | emacs-164cdfbf9e75a891bd8944a79f53bd403c6c2215.tar.gz | |
In `ispell-command-loop' don't use `next-window'.
* textmodes/ispell.el (ispell-command-loop): Don't use
`next-window'.
Diffstat (limited to 'lisp/textmodes/ispell.el')
| -rw-r--r-- | lisp/textmodes/ispell.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index ea2eaba6b9e..ab2c83b3ebc 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -2265,8 +2265,9 @@ Global `ispell-quit' set to start location to continue spell session." (sit-for 0)) ;; Display choices for misspelled word. + (setq textwin (selected-window)) (ispell-show-choices) - (select-window (setq textwin (next-window))) + (select-window textwin) ;; highlight word, protecting current buffer status (unwind-protect @@ -2408,8 +2409,9 @@ Global `ispell-quit' set to start location to continue spell session." count (ispell-int-char (1+ count)))) (setq count (ispell-int-char (- count ?0 skipped)))) + (setq textwin (selected-window)) (ispell-show-choices) - (select-window (next-window))))) + (select-window textwin)))) (and (eq 'block ispell-highlight-p) (ispell-highlight-spelling-error start end nil 'block)) |