[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] How to say "I did that yesterday?"
From: |
Dave Abrahams |
Subject: |
Re: [O] How to say "I did that yesterday?" |
Date: |
Tue, 22 Nov 2011 21:02:48 -0800 |
User-agent: |
Gnus/5.110018 (No Gnus v0.18) Emacs/23.3 (darwin) |
on Tue Nov 22 2011, Erik Hetzner <egh-AT-e6h.org> wrote:
> At Tue, 22 Nov 2011 11:40:35 -0800,
> Dave Abrahams wrote:
>>
>
>>
>> I often discover that I completed something a few days ago and I would
>> like to mark it done with the appropriate date as though I had marked it
>> done in the past. That means, e.g., for a repeating event it might
>> repeat sooner than if it had been done today. Is there a way?
>
> M-x org-todo-yesterday ?
Heh, that doesn't seem to work from the agenda, though :(
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Before first headline at position 1142 in
buffer *Org Agenda*")
signal(error ("Before first headline at position 1142 in buffer *Org
Agenda*"))
error("Before first headline at position %d in buffer %s" 1142 #<buffer *Org
Agenda*>)
(condition-case nil (outline-back-to-heading invisible-ok) (error (error
"Before first headline at position %d in buffer %s" ... ...)))
org-back-to-heading(t)
(catch (quote exit) (org-back-to-heading t) (if (looking-at
org-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 t) (if ... ...) (or
... ...) (let* ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...)))
(let ((org-blocker-hook org-blocker-hook) (case-fold-search nil)) (when
(equal arg ...) (setq arg nil org-blocker-hook nil)) (when (and
org-blocker-hook ...) (setq org-blocker-hook nil)) (save-excursion (catch ...
... ... ... ...)))
org-todo((4))
(let* ((hour ...) (org-extend-today-until ...)) (org-todo arg))
org-todo-yesterday((4))
call-interactively(org-todo-yesterday t nil)
execute-extended-command((4))
call-interactively(execute-extended-command nil nil)
--8<---------------cut here---------------end--------------->8---
--
Dave Abrahams
BoostPro Computing
http://www.boostpro.com