andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* textmodes/ispell.el (ispell-command-loop): Don't use
`next-window'.
This commit is contained in:
Martin Rudalics 2014-12-19 18:59:54 +01:00
parent 061f310c4a
commit 164cdfbf9e
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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).

6
lisp/textmodes/ispell.el
View file

@ -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))