Commits

Anonymous committed 3055b64

Subject: Fix 21.5 probelm with ispell.el

2005-02-13 Michael Sperber <mike@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.

Comments (0)

Files changed (2)

+2005-02-13  Michael Sperber  <mike@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.
+
 2005-01-23  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.30 released.
 	(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
 
     ;; 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
       ;; 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)))))