emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r116025: ispell.el (ispell-region): Reset `in-commen


From: Agustin Martin Domingo
Subject: [Emacs-diffs] trunk r116025: ispell.el (ispell-region): Reset `in-comment' for new line instead of `add-coment' (bug#13577).
Date: Tue, 14 Jan 2014 10:51:49 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 116025
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/13577
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Tue 2014-01-14 11:50:28 +0100
message:
  ispell.el (ispell-region): Reset `in-comment' for new line instead of 
`add-coment' (bug#13577).
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/ispell.el       ispell.el-20091113204419-o5vbwnq5f7feedwu-694
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-01-14 08:41:09 +0000
+++ b/lisp/ChangeLog    2014-01-14 10:50:28 +0000
@@ -1,3 +1,8 @@
+2014-01-14  Agustín Martín Domingo  <address@hidden>
+
+       * ispell.el (ispell-region): Reset `in-comment' for new line
+       instead of wrongly reset `add-coment' (bug#13577).
+
 2014-01-14  Daiki Ueno  <address@hidden>
 
        * epa-file.el (epa-file-write-region): Encode the region according

=== modified file 'lisp/textmodes/ispell.el'
--- a/lisp/textmodes/ispell.el  2014-01-01 07:43:34 +0000
+++ b/lisp/textmodes/ispell.el  2014-01-14 10:50:28 +0000
@@ -3305,7 +3305,8 @@
                    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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]