From mboxrd@z Thu Jan 1 00:00:00 1970 From: Samuel Wales Subject: bug in done on repeating task Date: Sun, 1 Apr 2012 21:24:46 -0700 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37385) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SEYp0-0005D0-Rt for emacs-orgmode@gnu.org; Mon, 02 Apr 2012 00:24:52 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SEYoy-0000l2-SE for emacs-orgmode@gnu.org; Mon, 02 Apr 2012 00:24:50 -0400 Received: from mail-iy0-f169.google.com ([209.85.210.169]:47278) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SEYoy-0000hY-Kj for emacs-orgmode@gnu.org; Mon, 02 Apr 2012 00:24:48 -0400 Received: by iajr24 with SMTP id r24so4487072iaj.0 for ; Sun, 01 Apr 2012 21:24:46 -0700 (PDT) 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 FWIW: let*: Symbol's value as variable is void: org-last-state (assoc org-last-state org-todo-kwd-alist) (let* ((repeat ...) (aa ...) (interpret ...) (head ...) (whata ...) (msg "Entry repeats: ") (org-log-done nil) (org-todo-log-states nil) re type n what ts time to-state) (when repeat (if ... ...) (setq to-state ...) (unless ... ...) (org-todo to-state) (when ... ...) (when org-log-repeat ...) (org-back-to-heading t) (org-add-planning-info nil nil ...) (setq re ...) (while ... ... ...) (setq org-log-post-message msg) (message "%s" msg))) org-auto-repeat-maybe(#("DONE" 0 4 (face org-done))) (progn (when (boundp ...) (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 ...) (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) (org-inhibit-logging ...) (this ...) (hl-pos ...) (head ...) (ass ...) (interpret ...) (done-word ...) (final-done-word ...) (last-state ...) (completion-ignore-case t) (member ...) (tail ...) (state ...) (state ...) (next ...) (change-plist ...) dolog now-done-p) (when org-blocker-hook (setq org-last-todo-state-is-todo ...) (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 ...) (if ... ...) (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 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 ... ... ... ... ...))) (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (let (... org-loop-over-headlines-in-active-region) (org-map-entries ... org-loop-over-headlines-in-active-region cl ...)) (if (equal arg ...) (setq arg ...)) (let (... ...) (when ... ...) (when ... ...) (save-excursion ...))) org-todo(nil) call-interactively(org-todo) Emacs 22 Head: 829285e ensure noweb expanded body is used on export -- The Kafka Pandemic: http://thekafkapandemic.blogspot.com