diff options
author | Toby S. Cubitt <tsc25@cantab.net> | 2012-10-26 14:06:28 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-10-26 14:46:24 +0200 |
commit | 58551f1e5f3747fd82c8a061c8129476f48ad296 (patch) | |
tree | dc1d81bca2916a297357273cc14067561fbc8bed | |
parent | 73cfba486bddde8fbcaa3ff8f797c0d1d4d387e2 (diff) | |
download | org-mode-58551f1e5f3747fd82c8a061c8129476f48ad296.tar.gz |
Fix bug in org-agenda-diary-sexp-prefix
* lisp/org-agenda.el (org-agenda-get-sexps): Reset `extra' to nil at
beginning of re-search-forward loop, otherwise next iteration picks up
`extra' value from previous entry.
-rw-r--r-- | lisp/org-agenda.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 510c1ec..36f3fcb 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5454,7 +5454,8 @@ Do we have a reason to ignore this TODO entry because it has a time stamp? tags (save-excursion (org-backward-heading-same-level 0) (org-get-tags-at)) todo-state (org-get-todo-state) - warntime (org-entry-get (point) "APPT_WARNTIME")) + warntime (org-entry-get (point) "APPT_WARNTIME") + extra nil) (dolist (r (if (stringp result) (list result) |