|
@@ -4850,15 +4850,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))
|