[Orgmode] [PATCH] org-agenda: fix regexp in progress for state logging

[Julien Danjou]

* org-agenda.el (org-agenda-get-progress): Fix regexp for statep: it
must has \\ at the end of the line. This avoid matching the following
heading when there's no newline between the logged state and the next
heading.

Signed-off-by: Julien Danjou <address@hidden>
---
 lisp/org-agenda.el |   18 +++++++++---------
 1 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 3c1104e..6e8d07a 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -4814,15 +4814,15 @@ be skipped."
                     (setq clocked (match-string 2 rest)))
            (setq clocked "-")))
        (save-excursion
-         (setq extra nil)
-         (cond
-          ((not org-agenda-log-mode-add-notes))
-          (statep
-           (and (looking-at ".*\n[ \t]*\\([^-\n \t].*?\\)[ \t]*$")
-                (setq extra (match-string 1))))
-          (clockp
-           (and (looking-at ".*\n[ \t]*-[ \t]+\\([^-\n \t].*?\\)[ \t]*$")
-                (setq extra (match-string 1)))))
+         (setq extra
+               (cond
+                ((not org-agenda-log-mode-add-notes) nil)
+                (statep
+                 (and (looking-at ".*\\\\\n[ \t]*\\([^-\n \t].*?\\)[ \t]*$")
+                      (match-string 1)))
+                (clockp
+                 (and (looking-at ".*\n[ \t]*-[ \t]+\\([^-\n \t].*?\\)[ \t]*$")
+                      (match-string 1)))))
          (if (not (re-search-backward "^\\*+ " nil t))
              (setq txt org-agenda-no-heading-message)
            (goto-char (match-beginning 0))
-- 
1.7.2.3