CVS update by michaels (Fix 21.5 probelm with ispell.el) MODIFIED: packages/xemacs-packages/ispell ...
User: michaels
Date: 05/02/13 14:40:22
Modified: packages/xemacs-packages/ispell ChangeLog ispell.el
Log:
Subject: Fix 21.5 probelm with ispell.el
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.
Revision Changes Path
1.37 +6 -0 XEmacs/packages/xemacs-packages/ispell/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ispell/ChangeLog,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- ChangeLog 2005/01/23 14:04:10 1.36
+++ ChangeLog 2005/02/13 13:40:21 1.37
＠＠ -1,3 +1,9 ＠＠
+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.
+
2005-01-23 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.30 released.
1.22 +3 -3 XEmacs/packages/xemacs-packages/ispell/ispell.el
Index: ispell.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ispell/ispell.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -r1.21 -r1.22
--- ispell.el 2005/01/23 13:50:55 1.21
+++ ispell.el 2005/02/13 13:40:21 1.22
＠＠ -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)))))