# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1106090187 0
# Node ID 24c3aed806c6779aac34a3fc25de15b17e12dcc6
# Parent  48b06baddb8a761a514ed0816a2d1dfe71ace1a0
(ispell-looking-at): New function.
(ispell-process-line): Use ispell-looking-at to compare the ispell
output and the buffer contents.

diff -r 48b06baddb8a -r 24c3aed806c6 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Tue Jan 18 20:50:43 2005 +0000
+++ b/lisp/textmodes/ispell.el	Tue Jan 18 23:16:27 2005 +0000
@@ -1091,7 +1091,7 @@
     table))
 
 ;; Return a string decoded from Nth element of the current dictionary
-;; while splice equivalent characters into the string.  This splicing
+;; while splicing equivalent characters into the string.  This splicing
 ;; is done only if the string is a regular expression of the form
 ;; "[...]" because, otherwise, splicing will result in incorrect
 ;; regular expression matching.
@@ -2794,6 +2794,15 @@
     string))
 
 
+(defun ispell-looking-at (string)
+  (let ((coding (ispell-get-coding-system))
+	(len (length string)))
+    (and (<= (+ (point) len) (point-max))
+	 (equal (encode-coding-string string coding)
+		(encode-coding-string (buffer-substring-no-properties
+				       (point) (+ (point) len))
+				      coding)))))
+
 ;;; Avoid error messages when compiling for these dynamic variables.
 (eval-when-compile
   (defvar start)
@@ -2842,12 +2851,7 @@
 
 	    ;; Alignment cannot be tracked and this error will occur when
 	    ;; `query-replace' makes multiple corrections on the starting line.
-	    (if (/= (+ word-len (point))
-		    (progn
-		      ;; NB: Search can fail with Mule coding systems that don't
-		      ;;  display properly.  Ignore the error in this case?
-		      (search-forward (car poss) (+ word-len (point)) t)
-		      (point)))
+	    (or (ispell-looking-at (car poss))
 		;; This occurs due to filter pipe problems
 		(error (concat "Ispell misalignment: word "
 			       "`%s' point %d; probably incompatible versions")