In `ispell-command-loop' don't use `next-window'.

* textmodes/ispell.el (ispell-command-loop): Don't use
`next-window'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b50d5844b58955d85899c5627a321f9636d11fdf..feeab01a106fe1358a9266fcac1d724b5084b0a8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-19  Martin Rudalics  <rudalics@gmx.at>
+
+       * textmodes/ispell.el (ispell-command-loop): Don't use
+       `next-window'.
+
 2014-12-18  Sam Steingold  <sds@gnu.org>
 
        Keyboard interface (C-f10) to `mouse-buffer-menu' (C-down-mouse-1).

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index ea2eaba6b9e6a9229c780f8c0d1e5a1c68f4c636..ab2c83b3ebc8127026c4ff747404340ca09577bb 100644 (file)
--- 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))