aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAgustín Martín2014-01-14 11:50:28 +0100
committerAgustín Martín2014-01-14 11:50:28 +0100
commitc6a0b8eb25edd26ea22a3f9a649f2f6af999ad09 (patch)
treed9d9a31a3e2e8e29276661c7736c0e0433663247
parent02bf443d2ea21189dc0e8ac0bb741db9fa8fc365 (diff)
downloademacs-c6a0b8eb25edd26ea22a3f9a649f2f6af999ad09.tar.gz
emacs-c6a0b8eb25edd26ea22a3f9a649f2f6af999ad09.zip
ispell.el (ispell-region): Reset `in-comment' for new line instead of `add-coment' (bug#13577).
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/textmodes/ispell.el3
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 243078ebad4..fc2a295f8c3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12014-01-14 Agustín Martín Domingo <agustin.martin@hispalinux.es>
2
3 * ispell.el (ispell-region): Reset `in-comment' for new line
4 instead of wrongly reset `add-coment' (bug#13577).
5
12014-01-14 Daiki Ueno <ueno@gnu.org> 62014-01-14 Daiki Ueno <ueno@gnu.org>
2 7
3 * epa-file.el (epa-file-write-region): Encode the region according 8 * epa-file.el (epa-file-write-region): Encode the region according
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index cdc8448d2d1..050938752ca 100644
--- 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
3305 ispell-start ispell-end (point-at-eol) in-comment add-comment string) 3305 ispell-start ispell-end (point-at-eol) in-comment add-comment string)
3306 (if add-comment ; account for comment chars added 3306 (if add-comment ; account for comment chars added
3307 (setq ispell-start (- ispell-start (length add-comment)) 3307 (setq ispell-start (- ispell-start (length add-comment))
3308 add-comment nil)) 3308 ;; Reset `in-comment' (and indirectly `add-comment') for new line
3309 in-comment nil))
3309 (setq ispell-end (point)) ; "end" tracks region retrieved. 3310 (setq ispell-end (point)) ; "end" tracks region retrieved.
3310 (if string ; there is something to spell check! 3311 (if string ; there is something to spell check!
3311 ;; (special start end) 3312 ;; (special start end)