ispell.el (ispell-region): Reset `in-comment' for new line instead of `add-coment...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 243078ebad4283943cd0ceed5fe8dfe4b9b6170a..fc2a295f8c3529366ebc92829f3bfd2f81cd3bf9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-01-14  Agustín Martín Domingo  <agustin.martin@hispalinux.es>
+
+       * ispell.el (ispell-region): Reset `in-comment' for new line
+       instead of wrongly reset `add-coment' (bug#13577).
+
 2014-01-14  Daiki Ueno  <ueno@gnu.org>
 
        * epa-file.el (epa-file-write-region): Encode the region according

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index cdc8448d2d165c7ab61e56e90884b259e1313f2d..050938752ca14eb7e2d8085569934ac7fc31ae6e 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -3305,7 +3305,8 @@ ispell-region: Search for first region to skip after (ispell-begin-skip-region-r
                    ispell-start ispell-end (point-at-eol) in-comment add-comment string)
                  (if add-comment               ; account for comment chars added
                      (setq ispell-start (- ispell-start (length add-comment))
-                           add-comment nil))
+                           ;; Reset `in-comment' (and indirectly `add-comment') for new line
+                           in-comment nil))
                  (setq ispell-end (point)) ; "end" tracks region retrieved.
                  (if string            ; there is something to spell check!
                      ;; (special start end)