[AC] Fix ispell problem
2005-02-13 Michael Sperber <mike(a)xemacs.org>
* ispell.el (ispell-command-loop): Don't rely on
`save-window-excursion' to preserve window identity. This makes
r)eplace work on XEmacs 21.5.
Index: ispell.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ispell/ispell.el,v
retrieving revision 1.21
diff -u -r1.21 ispell.el
--- ispell.el 23 Jan 2005 13:50:55 -0000 1.21
+++ ispell.el 13 Feb 2005 13:38:23 -0000
＠＠ -1600,7 +1600,7 ＠＠
(command-characters '( ? ?i ?a ?A ?r ?R ?? ?x ?X ?q ?l ?u ?m ))
(dedicated (window-dedicated-p (selected-window)))
(skipped 0)
- char num result textwin dedicated-win)
+ char num result dedicated-win)
;; setup the *Choices* buffer with valid data.
(save-excursion
＠＠ -1658,7 +1658,7 ＠＠
;; Display choices for misspelled word.
(ispell-show-choices line end)
- (select-window (setq textwin (next-window)))
+ (select-window (next-window))
;; highlight word, protecting current buffer status
(unwind-protect
＠＠ -1848,7 +1848,7 ＠＠
;; protected
(and ispell-highlight-p ; unhighlight
(save-window-excursion
- (select-window textwin)
+ (select-window (get-buffer-window ispell-choices-buffer))
(ispell-highlight-spelling-error start end)))
(if dedicated
(set-window-dedicated-p dedicated-win t)))))
--
Cheers =8-} Mike
Friede, Völkerverständigung und überhaupt blabla