diff options
| -rw-r--r-- | oni-org/oni-org.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el index 24df0d0..5cd5cfc 100644 --- a/oni-org/oni-org.el +++ b/oni-org/oni-org.el @@ -1021,15 +1021,15 @@ placed above TARGET. Otherwise it will be placed below it." (save-excursion (goto-char entry-beginning) (save-match-data - (re-search-forward org-logbook-drawer-re entry-end) - (let ((logbook-beginning (match-beginning 0)) - (logbook-end (match-end 0))) - (goto-char logbook-beginning) - (while (re-search-forward - (rx "Finished a pomodoro on " - (group "[" (one-or-more (not "]")) "]")) - logbook-end t) - (push (org-parse-time-string (match-string 1)) results))))) + (when (re-search-forward org-logbook-drawer-re entry-end nil) + (let ((logbook-beginning (match-beginning 0)) + (logbook-end (match-end 0))) + (goto-char logbook-beginning) + (while (re-search-forward + (rx "Finished a pomodoro on " + (group "[" (one-or-more (not "]")) "]")) + logbook-end t) + (push (org-parse-time-string (match-string 1)) results)))))) results)) (defun oni-org-pomodoro-times-for-date (date) |