diff options
| author | Agustín Martín | 2014-01-14 11:50:28 +0100 |
|---|---|---|
| committer | Agustín Martín | 2014-01-14 11:50:28 +0100 |
| commit | c6a0b8eb25edd26ea22a3f9a649f2f6af999ad09 (patch) | |
| tree | d9d9a31a3e2e8e29276661c7736c0e0433663247 | |
| parent | 02bf443d2ea21189dc0e8ac0bb741db9fa8fc365 (diff) | |
| download | emacs-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/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 3 |
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 @@ | |||
| 1 | 2014-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 | |||
| 1 | 2014-01-14 Daiki Ueno <ueno@gnu.org> | 6 | 2014-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) |