emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* bug in done on repeating task
@ 2012-04-02  4:24 Samuel Wales
  2012-04-02  5:34 ` Bastien
  0 siblings, 1 reply; 3+ messages in thread
From: Samuel Wales @ 2012-04-02  4:24 UTC (permalink / raw)
  To: emacs-orgmode

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

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2012-04-02  6:06 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-04-02  4:24 bug in done on repeating task Samuel Wales
2012-04-02  5:34 ` Bastien
2012-04-02  6:05   ` Samuel Wales

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).