Hi Carsten,
I updated org-mode this morning to
commit 413d9b73b0a5a4c38be8791d72e17137306c59ac
and I'm trying to mark tasks with repeaters done and get the following
error.
,----[ test.org ]
| #+STARTUP:
| * TODO Repeating Task
| SCHEDULED: <2008-11-01 Sat +1w>
|
| Do something
|
`----
In the repeating task do C-c C-t d to mark the task as done. This
would
normally prompt for a note but it fails with an error.
This leaves the task like this:
,----[ test.org ]
| #+STARTUP:
| * DONE Repeating Task
| SCHEDULED: <2008-11-01 Sat +1w>
| - State "DONE" [2008-11-03 Mon 08:46]
|
| Do something
|
`----
Org-mode version 6.10c
GNU Emacs 22.2.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars) of
2008-07-24 on raven, modified by Debian
I have the following custom settings:
,----[ Part of my custom settings ]
| '(org-use-fast-todo-selection t)
| '(org-todo-keywords (quote ((sequence "TODO(t)" "|" "DONE(d!/!)")
(sequence "WAITING(w@/!)" "ONGOING(o)" "DEFERRED(D@/!)" "|"
"CANCELLED(c@/!)") (sequence "QUOTATION(q!)" "QUOTED(Q!)" "|"
"APPROVED(A@)" "EXPIRED(E@)" "REJECTED(R@)") (sequence "OPEN(O!)"
"|" "CLOSED(C@)") (sequence "PROJECT(P)" "|" "COMPLETE(p@)")
(sequence "|" "NOTE" "PHONE" "MEETING"))))
| '(org-log-done (quote time))
`----
,----
| Debugger entered--Lisp error: (void-variable org-agenda-headline-
snapshot-before-repeat)
| (boundp org-agenda-headline-snapshot-before-repeat)
| (if (boundp org-agenda-headline-snapshot-before-repeat) (progn
(save-match-data ...)))
| (when (boundp org-agenda-headline-snapshot-before-repeat) (save-
match-data (setq org-agenda-headline-snapshot-before-repeat ...)))
| (progn (when (boundp org-agenda-headline-snapshot-before-repeat)
(save-match-data ...)) (org-auto-repeat-maybe state))
| (if now-done-p (progn (when ... ...) (org-auto-repeat-maybe
state)))
| (when now-done-p (when (boundp org-agenda-headline-snapshot-
before-repeat) (save-match-data ...)) (org-auto-repeat-maybe state))
| (let* ((match-data ...) (startpos ...) (logging ...) (org-log-
done org-log-done) (org-log-repeat org-log-repeat) (org-todo-log-
states org-todo-log-states) (this ...) (hl-pos ...) (head ...)
(ass ...) (interpret ...) (done-word ...) (final-done-word ...)
(last-state ...) (completion-ignore-case t) (member ...) (tail ...)
(state ...) (next ...) (change-plist ...) dolog now-done-p) (when
org-blocker-hook (unless ... ...)) (store-match-data match-data)
(replace-match next t t) (unless (pos-visible-in-window-p hl-pos)
(message "TODO state changed to %s" ...)) (unless head (setq
head ... ass ... interpret ... done-word ... final-done-word ...))
(when (memq arg ...) (message "Keyword-Set %d/%d: %s" ... ... ...))
(setq org-last-todo-state-is-todo (not ...)) (setq now-done-p
(and ... ...)) (and logging (org-local-logging logging)) (when
(and ... ...) (setq dolog ...) (when ... ...) (when ... ... ...)
(when ... ...)) (org-todo-trigger-tag-changes state) (and org-auto-
align-tags (not org-setting-tags) (org-set-tags nil t)) (when org-
provide-todo-statistics (org-update-parent-todo-statistics)) (run-
hooks (quote org-after-todo-state-change-hook)) (if (and arg ...)
(setq head ...)) (put-text-property (point-at-bol) (point-at-eol)
(quote org-todo-head) head) (when now-done-p (when ... ...) (org-
auto-repeat-maybe state)) (if (and ... ... ... ...) (progn ... ...))
(when org-trigger-hook (save-excursion ...)))
| (catch (quote exit) (org-back-to-heading) (if (looking-at
outline-regexp) (goto-char ...)) (or (looking-at ...) (looking-at "
*")) (let*
(... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... dolog
now-done-p) (when org-blocker-hook ...) (store-match-data match-
data) (replace-match next t t) (unless ... ...) (unless head ...)
(when ... ...) (setq org-last-todo-state-is-todo ...) (setq now-done-
p ...) (and logging ...) (when ... ... ... ... ...) (org-todo-
trigger-tag-changes state) (and org-auto-align-tags ... ...) (when
org-provide-todo-statistics ...) (run-hooks ...) (if ... ...) (put-
text-property ... ... ... head) (when now-done-p ... ...)
(if ... ...) (when org-trigger-hook ...)))
| (save-excursion (catch (quote exit) (org-back-to-heading)
(if ... ...) (or ... ...)
(let
* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
| org-todo(nil)
| call-interactively(org-todo)
`----
Rewinding to
commit cb1bbaf244e141630f29cd117e30cc91741ac3bc
Author: Carsten Dominik <address@hidden>
Date: Sun Nov 2 17:13:25 2008 +0100
Don't keep buffers visited during index publishing.
works.
Regards,
Bernt
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode