[Emacs-diffs] master 164cdfb: In `ispell-command-loop' don't use `next-window'.

[Martin Rudalics]

branch: master
commit 164cdfbf9e75a891bd8944a79f53bd403c6c2215
Author: Martin Rudalics <address@hidden>
Commit: Martin Rudalics <address@hidden>

    In `ispell-command-loop' don't use `next-window'.
    
    * textmodes/ispell.el (ispell-command-loop): Don't use
    `next-window'.
---
 lisp/ChangeLog           |    5 +++++
 lisp/textmodes/ispell.el |    6 ++++--
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b50d584..feeab01 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-12-19  Martin Rudalics  <address@hidden>
+
+       * textmodes/ispell.el (ispell-command-loop): Don't use
+       `next-window'.
+
 2014-12-18  Sam Steingold  <address@hidden>
 
        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 ea2eaba..ab2c83b 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))