From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dave Abrahams Subject: Re: How to say "I did that yesterday?" Date: Tue, 22 Nov 2011 21:02:48 -0800 Message-ID: References: <87r50zyfeh.wl%egh@e6h.org> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:49760) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RT561-0003Hd-K1 for emacs-orgmode@gnu.org; Wed, 23 Nov 2011 00:10:10 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RT55z-0003T0-Sh for emacs-orgmode@gnu.org; Wed, 23 Nov 2011 00:10:09 -0500 Received: from lo.gmane.org ([80.91.229.12]:47222) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RT55z-0003SU-Ah for emacs-orgmode@gnu.org; Wed, 23 Nov 2011 00:10:07 -0500 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1RT55x-0007n8-Il for emacs-orgmode@gnu.org; Wed, 23 Nov 2011 06:10:05 +0100 Received: from cpe-75-84-188-171.socal.res.rr.com ([75.84.188.171]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 23 Nov 2011 06:10:05 +0100 Received: from dave by cpe-75-84-188-171.socal.res.rr.com with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 23 Nov 2011 06:10:05 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org on Tue Nov 22 2011, Erik Hetzner 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 #) (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