comparison lisp/textmodes/ispell.el @ 59627:24c3aed806c6

(ispell-looking-at): New function. (ispell-process-line): Use ispell-looking-at to compare the ispell output and the buffer contents.

59626:48b06baddb8a

	       (aset table v (concat unified (string c))))))
     ucs-mule-8859-to-mule-unicode)
    table))

;; Return a string decoded from Nth element of the current dictionary
;; while splice 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.

(defun ispell-get-decoded-string (n)

      (goto-char end))
     (t (goto-char end)))		; EMPTY LINE, skip it.
    string))


;;; Avoid error messages when compiling for these dynamic variables.
(eval-when-compile
  (defvar start)
  (defvar end))

	    (goto-char word-start)
	    (ispell-horiz-scroll)

	    ;; 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)))
		;; This occurs due to filter pipe problems
		(error (concat "Ispell misalignment: word "
			       "`%s' point %d; probably incompatible versions")
		       (car poss) (marker-position word-start)))
	    ;; ispell-cmd-loop can go recursive & change buffer

59627:24c3aed806c6

	       (aset table v (concat unified (string c))))))
     ucs-mule-8859-to-mule-unicode)
    table))

;; Return a string decoded from Nth element of the current dictionary
;; 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.

(defun ispell-get-decoded-string (n)

      (goto-char end))
     (t (goto-char end)))		; EMPTY LINE, skip it.
    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)
  (defvar end))

	    (goto-char word-start)
	    (ispell-horiz-scroll)

	    ;; Alignment cannot be tracked and this error will occur when
	    ;; `query-replace' makes multiple corrections on the starting line.
	    (or (ispell-looking-at (car poss))
		;; This occurs due to filter pipe problems
		(error (concat "Ispell misalignment: word "
			       "`%s' point %d; probably incompatible versions")
		       (car poss) (marker-position word-start)))
	    ;; ispell-cmd-loop can go recursive & change buffer