]> git.eshelyaron.com Git - emacs.git/commitdiff
Reinstate ispell character offset (bug#25219)
authorAlan Third <alan@idiocy.org>
Sun, 18 Dec 2016 15:54:48 +0000 (15:54 +0000)
committerAlan Third <alan@idiocy.org>
Sun, 18 Dec 2016 16:01:16 +0000 (16:01 +0000)
* lisp/textmodes/ispell.el (ispell-process-line): insert -1 where
ispell-offset used to be.

lisp/textmodes/ispell.el

index 37a6ffc4ef91b8d40b8a058c47a76bb91e904529..23ee412b8c26ccb12cd2f62d60f58c8d26ebfa6a 100644 (file)
@@ -3338,7 +3338,10 @@ Returns the sum SHIFT due to changes in word replacements."
          ;; Markers can move with highlighting!  This destroys
          ;; end of region markers line-end and ispell-region-end
          (let ((word-start
-                (copy-marker (+ ispell-start (car (cdr poss)))))
+                 ;; There is a -1 offset here as the string is escaped
+                 ;; with '^' to prevent us accidentally sending any
+                 ;; ispell commands.
+                (copy-marker (+ ispell-start -1 (car (cdr poss)))))
                (word-len (length (car poss)))
                (line-end (copy-marker ispell-end))
                (line-start (copy-marker ispell-start))