Org Clock Error

[Mike McLean <mike.mclean@pobox.com>]

[-- Attachment #1: Type: text/plain, Size: 24143 bytes --]

Hello

In the last few days I started getting an error when moving tasks to the
DONE state.

I have ~(setq org-clock-out-when-done t)~ in my Emacs configuration.

I get the following back trace when I mark a task as done:

Debugger entered--Lisp error: (void-variable org-state)
  (member org-state org-done-keywords)
  (and (eq t org-clock-out-when-done) (member org-state org-done-keywords))
  (or (and (eq t org-clock-out-when-done) (member org-state
org-done-keywords)) (and (listp org-clock-out-when-done) (member org-state
org-clock-out-when-done)))
  (and (org-clocking-p) org-clock-out-when-done (marker-buffer
org-clock-marker) (or (and (eq t org-clock-out-when-done) (member org-state
org-done-keywords)) (and (listp org-clock-out-when-done) (member org-state
org-clock-out-when-done))) (equal (or (buffer-base-buffer
(org-clocking-buffer)) (org-clocking-buffer)) (or (buffer-base-buffer
(current-buffer)) (current-buffer))) (< (point) org-clock-marker) (>
(save-excursion (outline-next-heading) (point)) org-clock-marker))
  (if (and (org-clocking-p) org-clock-out-when-done (marker-buffer
org-clock-marker) (or (and (eq t org-clock-out-when-done) (member org-state
org-done-keywords)) (and (listp org-clock-out-when-done) (member org-state
org-clock-out-when-done))) (equal (or (buffer-base-buffer
(org-clocking-buffer)) (org-clocking-buffer)) (or (buffer-base-buffer
(current-buffer)) (current-buffer))) (< (point) org-clock-marker) (>
(save-excursion (outline-next-heading) (point)) org-clock-marker)) (progn
(let ((org-log-note-clock-out nil) (org-clock-out-switch-to-state nil))
(org-clock-out))))
  org-clock-out-if-current()
  run-hooks(org-after-todo-state-change-hook)
  (let* ((match-data (match-data)) (startpos (point-at-bol)) (logging (let
((save-match-data-internal (match-data))) (unwind-protect (progn
(org-entry-get nil "LOGGING" t t)) (set-match-data save-match-data-internal
(quote evaporate))))) (org-log-done org-log-done) (org-log-repeat
org-log-repeat) (org-todo-log-states org-todo-log-states)
(org-inhibit-logging (if (equal arg 0) (progn (setq arg nil) (quote note))
org-inhibit-logging)) (this (match-string 1)) (hl-pos (match-beginning 0))
(head (org-get-todo-sequence-head this)) (ass (assoc head
org-todo-kwd-alist)) (interpret (nth 1 ass)) (done-word (nth 3 ass))
(final-done-word (nth 4 ass)) (org-last-state (or this ""))
(completion-ignore-case t) (member (member this org-todo-keywords-1)) (tail
(cdr member)) (org-state (cond ((and org-todo-key-trigger (or (and ... ...)
(and ... org-use-fast-todo-selection ...))) (org-fast-todo-selection))
((and (equal arg (quote ...)) (or (not org-use-fast-todo-selection) (not
org-todo-key-trigger))) (completing-read "State: " (mapcar (function list)
org-todo-keywords-1) nil t)) ((eq arg (quote right)) (if this (if tail (car
tail) nil) (car org-todo-keywords-1))) ((eq arg (quote left)) (if (equal
member org-todo-keywords-1) nil (if this (nth ... org-todo-keywords-1)
(org-last org-todo-keywords-1)))) ((and (eq org-use-fast-todo-selection t)
(equal arg (quote ...)) (setq arg nil))) (arg (cond ((equal arg "") nil)
((eq arg ...) nil) ((eq arg ...) (or done-word ...)) ((eq arg ...) (or ...
...)) ((eq arg ...) (let ... ...)) ((car ...)) ((stringp arg) (user-error
"State `%s' not valid in this file" arg)) ((nth ... org-todo-keywords-1))))
((null member) (or head (car org-todo-keywords-1))) ((equal this
final-done-word) nil) ((null tail) nil) ((memq interpret (quote (type
priority))) (if (eq this-command last-command) (car tail) (if (> ... 0) (or
done-word ...) nil))) (t (car tail)))) (org-state (or
(run-hook-with-args-until-success (quote org-todo-get-default-hook)
org-state org-last-state) org-state)) (next (if org-state (concat " "
org-state " ") " ")) (change-plist (list :type (quote todo-state-change)
:from this :to org-state :position startpos)) dolog now-done-p) (if
org-blocker-hook (progn (setq org-last-todo-state-is-todo (not (member this
org-done-keywords))) (if (save-excursion (let ((save-match-data-internal
...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal
...)))) nil (if (with-no-warnings (called-interactively-p (quote
interactive))) (user-error "TODO state change from %s to %s blocked (by
\"%s\")" this org-state org-block-entry-blocking) (message "TODO state
change from %s to %s blocked (by \"%s\")" this org-state
org-block-entry-blocking) (throw (quote exit) nil))))) (store-match-data
match-data) (replace-match next t t) (cond ((equal this org-state) (message
"TODO state was already %s" (org-trim next))) ((pos-visible-in-window-p
hl-pos) (message "TODO state changed to %s" (org-trim next)))) (if head nil
(setq head (org-get-todo-sequence-head org-state) ass (assoc head
org-todo-kwd-alist) interpret (nth 1 ass) done-word (nth 3 ass)
final-done-word (nth 4 ass))) (if (memq arg (quote (nextset previousset)))
(progn (message "Keyword-Set %d/%d: %s" (- (length org-todo-sets) -1
(length (memq (assoc org-state org-todo-sets) org-todo-sets))) (length
org-todo-sets) (mapconcat (quote identity) (assoc org-state org-todo-sets)
" ")))) (setq org-last-todo-state-is-todo (not (member org-state
org-done-keywords))) (setq now-done-p (and (member org-state
org-done-keywords) (not (member this org-done-keywords)))) (and logging
(org-local-logging logging)) (if (and (or org-todo-log-states org-log-done)
(not (eq org-inhibit-logging t)) (not (memq arg (quote (nextset
previousset))))) (progn (setq dolog (or (nth 1 (assoc org-state
org-todo-log-states)) (nth 2 (assoc this org-todo-log-states)))) (if (and
(eq dolog (quote note)) (eq org-inhibit-logging (quote note))) (progn (setq
dolog (quote time)))) (if (or (and (not org-state) (not
org-closed-keep-when-no-todo)) (and org-state (member org-state
org-not-done-keywords) (not (member this org-not-done-keywords)))) (progn
(org-add-planning-info nil nil (quote closed)))) (if (and now-done-p
org-log-done) (progn (org-add-planning-info (quote closed)
(org-current-effective-time)) (if (and (not dolog) (eq ... org-log-done))
(progn (org-add-log-setup ... org-state this ...))))) (if (and org-state
dolog) (progn (org-add-log-setup (quote state) org-state this dolog)))))
(org-todo-trigger-tag-changes org-state) (and org-auto-align-tags (not
org-setting-tags) (org-set-tags nil t)) (if org-provide-todo-statistics
(progn (org-update-parent-todo-statistics))) (run-hooks (quote
org-after-todo-state-change-hook)) (if (and arg (not (member org-state
org-done-keywords))) (progn (setq head (org-get-todo-sequence-head
org-state)))) (put-text-property (point-at-bol) (point-at-eol) (quote
org-todo-head) head) (if now-done-p (progn (if (boundp (quote
org-agenda-headline-snapshot-before-repeat)) (progn (let
((save-match-data-internal ...)) (unwind-protect (progn ...)
(set-match-data save-match-data-internal ...))))) (org-auto-repeat-maybe
org-state))) (if (and (outline-on-heading-p) (not (bolp)) (save-excursion
(beginning-of-line 1) (looking-at org-todo-line-regexp)) (< (point) (+ 2
(or (match-end 2) (match-end 1))))) (progn (goto-char (or (match-end 2)
(match-end 1))) (and (looking-at " ") (just-one-space)))) (if
org-trigger-hook (progn (save-excursion (run-hook-with-args (quote
org-trigger-hook) change-plist)))) (if commentp (progn
(org-toggle-comment))))
  (catch (quote exit) (org-back-to-heading t) (if
(org-in-commented-heading-p t) (progn (org-toggle-comment) (setq commentp
t))) (if (looking-at org-outline-regexp) (progn (goto-char (1- (match-end
0))))) (or (looking-at (concat " +" org-todo-regexp "\\( +\\|[ ]*$\\)"))
(looking-at "\\(?: *\\|[ ]*$\\)")) (let* ((match-data (match-data))
(startpos (point-at-bol)) (logging (let ((save-match-data-internal
(match-data))) (unwind-protect (progn (org-entry-get nil "LOGGING" t t))
(set-match-data save-match-data-internal (quote evaporate)))))
(org-log-done org-log-done) (org-log-repeat org-log-repeat)
(org-todo-log-states org-todo-log-states) (org-inhibit-logging (if (equal
arg 0) (progn (setq arg nil) (quote note)) org-inhibit-logging)) (this
(match-string 1)) (hl-pos (match-beginning 0)) (head
(org-get-todo-sequence-head this)) (ass (assoc head org-todo-kwd-alist))
(interpret (nth 1 ass)) (done-word (nth 3 ass)) (final-done-word (nth 4
ass)) (org-last-state (or this "")) (completion-ignore-case t) (member
(member this org-todo-keywords-1)) (tail (cdr member)) (org-state (cond
((and org-todo-key-trigger (or ... ...)) (org-fast-todo-selection)) ((and
(equal arg ...) (or ... ...)) (completing-read "State: " (mapcar ...
org-todo-keywords-1) nil t)) ((eq arg (quote right)) (if this (if tail ...
nil) (car org-todo-keywords-1))) ((eq arg (quote left)) (if (equal member
org-todo-keywords-1) nil (if this ... ...))) ((and (eq
org-use-fast-todo-selection t) (equal arg ...) (setq arg nil))) (arg (cond
(... nil) (... nil) (... ...) (... ...) (... ...) (...) (... ...) (...)))
((null member) (or head (car org-todo-keywords-1))) ((equal this
final-done-word) nil) ((null tail) nil) ((memq interpret (quote ...)) (if
(eq this-command last-command) (car tail) (if ... ... nil))) (t (car
tail)))) (org-state (or (run-hook-with-args-until-success (quote
org-todo-get-default-hook) org-state org-last-state) org-state)) (next (if
org-state (concat " " org-state " ") " ")) (change-plist (list :type (quote
todo-state-change) :from this :to org-state :position startpos)) dolog
now-done-p) (if org-blocker-hook (progn (setq org-last-todo-state-is-todo
(not (member this org-done-keywords))) (if (save-excursion (let (...)
(unwind-protect ... ...))) nil (if (with-no-warnings
(called-interactively-p ...)) (user-error "TODO state change from %s to %s
blocked (by \"%s\")" this org-state org-block-entry-blocking) (message
"TODO state change from %s to %s blocked (by \"%s\")" this org-state
org-block-entry-blocking) (throw (quote exit) nil))))) (store-match-data
match-data) (replace-match next t t) (cond ((equal this org-state) (message
"TODO state was already %s" (org-trim next))) ((pos-visible-in-window-p
hl-pos) (message "TODO state changed to %s" (org-trim next)))) (if head nil
(setq head (org-get-todo-sequence-head org-state) ass (assoc head
org-todo-kwd-alist) interpret (nth 1 ass) done-word (nth 3 ass)
final-done-word (nth 4 ass))) (if (memq arg (quote (nextset previousset)))
(progn (message "Keyword-Set %d/%d: %s" (- (length org-todo-sets) -1
(length (memq ... org-todo-sets))) (length org-todo-sets) (mapconcat (quote
identity) (assoc org-state org-todo-sets) " ")))) (setq
org-last-todo-state-is-todo (not (member org-state org-done-keywords)))
(setq now-done-p (and (member org-state org-done-keywords) (not (member
this org-done-keywords)))) (and logging (org-local-logging logging)) (if
(and (or org-todo-log-states org-log-done) (not (eq org-inhibit-logging t))
(not (memq arg (quote (nextset previousset))))) (progn (setq dolog (or (nth
1 (assoc org-state org-todo-log-states)) (nth 2 (assoc this
org-todo-log-states)))) (if (and (eq dolog (quote note)) (eq
org-inhibit-logging (quote note))) (progn (setq dolog (quote time)))) (if
(or (and (not org-state) (not org-closed-keep-when-no-todo)) (and org-state
(member org-state org-not-done-keywords) (not ...))) (progn
(org-add-planning-info nil nil (quote closed)))) (if (and now-done-p
org-log-done) (progn (org-add-planning-info (quote closed)
(org-current-effective-time)) (if (and ... ...) (progn ...)))) (if (and
org-state dolog) (progn (org-add-log-setup (quote state) org-state this
dolog))))) (org-todo-trigger-tag-changes org-state) (and
org-auto-align-tags (not org-setting-tags) (org-set-tags nil t)) (if
org-provide-todo-statistics (progn (org-update-parent-todo-statistics)))
(run-hooks (quote org-after-todo-state-change-hook)) (if (and arg (not
(member org-state org-done-keywords))) (progn (setq head
(org-get-todo-sequence-head org-state)))) (put-text-property (point-at-bol)
(point-at-eol) (quote org-todo-head) head) (if now-done-p (progn (if
(boundp (quote org-agenda-headline-snapshot-before-repeat)) (progn (let
(...) (unwind-protect ... ...)))) (org-auto-repeat-maybe org-state))) (if
(and (outline-on-heading-p) (not (bolp)) (save-excursion (beginning-of-line
1) (looking-at org-todo-line-regexp)) (< (point) (+ 2 (or (match-end 2)
(match-end 1))))) (progn (goto-char (or (match-end 2) (match-end 1))) (and
(looking-at " ") (just-one-space)))) (if org-trigger-hook (progn
(save-excursion (run-hook-with-args (quote org-trigger-hook)
change-plist)))) (if commentp (progn (org-toggle-comment)))))
  (save-excursion (catch (quote exit) (org-back-to-heading t) (if
(org-in-commented-heading-p t) (progn (org-toggle-comment) (setq commentp
t))) (if (looking-at org-outline-regexp) (progn (goto-char (1- (match-end
0))))) (or (looking-at (concat " +" org-todo-regexp "\\( +\\|[ ]*$\\)"))
(looking-at "\\(?: *\\|[ ]*$\\)")) (let* ((match-data (match-data))
(startpos (point-at-bol)) (logging (let ((save-match-data-internal ...))
(unwind-protect (progn ...) (set-match-data save-match-data-internal
...)))) (org-log-done org-log-done) (org-log-repeat org-log-repeat)
(org-todo-log-states org-todo-log-states) (org-inhibit-logging (if (equal
arg 0) (progn (setq arg nil) (quote note)) org-inhibit-logging)) (this
(match-string 1)) (hl-pos (match-beginning 0)) (head
(org-get-todo-sequence-head this)) (ass (assoc head org-todo-kwd-alist))
(interpret (nth 1 ass)) (done-word (nth 3 ass)) (final-done-word (nth 4
ass)) (org-last-state (or this "")) (completion-ignore-case t) (member
(member this org-todo-keywords-1)) (tail (cdr member)) (org-state (cond
((and org-todo-key-trigger ...) (org-fast-todo-selection)) ((and ... ...)
(completing-read "State: " ... nil t)) ((eq arg ...) (if this ... ...))
((eq arg ...) (if ... nil ...)) ((and ... ... ...)) (arg (cond ... ... ...
... ... ... ... ...)) ((null member) (or head ...)) ((equal this
final-done-word) nil) ((null tail) nil) ((memq interpret ...) (if ... ...
...)) (t (car tail)))) (org-state (or (run-hook-with-args-until-success
(quote org-todo-get-default-hook) org-state org-last-state) org-state))
(next (if org-state (concat " " org-state " ") " ")) (change-plist (list
:type (quote todo-state-change) :from this :to org-state :position
startpos)) dolog now-done-p) (if org-blocker-hook (progn (setq
org-last-todo-state-is-todo (not (member this org-done-keywords))) (if
(save-excursion (let ... ...)) nil (if (with-no-warnings ...) (user-error
"TODO state change from %s to %s blocked (by \"%s\")" this org-state
org-block-entry-blocking) (message "TODO state change from %s to %s blocked
(by \"%s\")" this org-state org-block-entry-blocking) (throw ... nil)))))
(store-match-data match-data) (replace-match next t t) (cond ((equal this
org-state) (message "TODO state was already %s" (org-trim next)))
((pos-visible-in-window-p hl-pos) (message "TODO state changed to %s"
(org-trim next)))) (if head nil (setq head (org-get-todo-sequence-head
org-state) ass (assoc head org-todo-kwd-alist) interpret (nth 1 ass)
done-word (nth 3 ass) final-done-word (nth 4 ass))) (if (memq arg (quote
(nextset previousset))) (progn (message "Keyword-Set %d/%d: %s" (- (length
org-todo-sets) -1 (length ...)) (length org-todo-sets) (mapconcat (quote
identity) (assoc org-state org-todo-sets) " ")))) (setq
org-last-todo-state-is-todo (not (member org-state org-done-keywords)))
(setq now-done-p (and (member org-state org-done-keywords) (not (member
this org-done-keywords)))) (and logging (org-local-logging logging)) (if
(and (or org-todo-log-states org-log-done) (not (eq org-inhibit-logging t))
(not (memq arg (quote ...)))) (progn (setq dolog (or (nth 1 ...) (nth 2
...))) (if (and (eq dolog ...) (eq org-inhibit-logging ...)) (progn (setq
dolog ...))) (if (or (and ... ...) (and org-state ... ...)) (progn
(org-add-planning-info nil nil ...))) (if (and now-done-p org-log-done)
(progn (org-add-planning-info ... ...) (if ... ...))) (if (and org-state
dolog) (progn (org-add-log-setup ... org-state this dolog)))))
(org-todo-trigger-tag-changes org-state) (and org-auto-align-tags (not
org-setting-tags) (org-set-tags nil t)) (if org-provide-todo-statistics
(progn (org-update-parent-todo-statistics))) (run-hooks (quote
org-after-todo-state-change-hook)) (if (and arg (not (member org-state
org-done-keywords))) (progn (setq head (org-get-todo-sequence-head
org-state)))) (put-text-property (point-at-bol) (point-at-eol) (quote
org-todo-head) head) (if now-done-p (progn (if (boundp (quote
org-agenda-headline-snapshot-before-repeat)) (progn (let ... ...)))
(org-auto-repeat-maybe org-state))) (if (and (outline-on-heading-p) (not
(bolp)) (save-excursion (beginning-of-line 1) (looking-at
org-todo-line-regexp)) (< (point) (+ 2 (or ... ...)))) (progn (goto-char
(or (match-end 2) (match-end 1))) (and (looking-at " ") (just-one-space))))
(if org-trigger-hook (progn (save-excursion (run-hook-with-args (quote
org-trigger-hook) change-plist)))) (if commentp (progn
(org-toggle-comment))))))
  (let ((org-blocker-hook org-blocker-hook) commentp case-fold-search) (if
(equal arg (quote (64))) (progn (setq arg nil org-blocker-hook nil))) (if
(and org-blocker-hook (or org-inhibit-blocking (org-entry-get nil
"NOBLOCKING"))) (progn (setq org-blocker-hook nil))) (save-excursion (catch
(quote exit) (org-back-to-heading t) (if (org-in-commented-heading-p t)
(progn (org-toggle-comment) (setq commentp t))) (if (looking-at
org-outline-regexp) (progn (goto-char (1- (match-end 0))))) (or (looking-at
(concat " +" org-todo-regexp "\\( +\\|[ ]*$\\)")) (looking-at "\\(?:
*\\|[ ]*$\\)"))
(let* ((match-data (match-data)) (startpos (point-at-bol)) (logging (let
(...) (unwind-protect ... ...))) (org-log-done org-log-done)
(org-log-repeat org-log-repeat) (org-todo-log-states org-todo-log-states)
(org-inhibit-logging (if (equal arg 0) (progn ... ...)
org-inhibit-logging)) (this (match-string 1)) (hl-pos (match-beginning 0))
(head (org-get-todo-sequence-head this)) (ass (assoc head
org-todo-kwd-alist)) (interpret (nth 1 ass)) (done-word (nth 3 ass))
(final-done-word (nth 4 ass)) (org-last-state (or this ""))
(completion-ignore-case t) (member (member this org-todo-keywords-1)) (tail
(cdr member)) (org-state (cond (... ...) (... ...) (... ...) (... ...)
(...) (arg ...) (... ...) (... nil) (... nil) (... ...) (t ...)))
(org-state (or (run-hook-with-args-until-success ... org-state
org-last-state) org-state)) (next (if org-state (concat " " org-state " ")
" ")) (change-plist (list :type (quote todo-state-change) :from this :to
org-state :position startpos)) dolog now-done-p) (if org-blocker-hook
(progn (setq org-last-todo-state-is-todo (not ...)) (if (save-excursion
...) nil (if ... ... ... ...)))) (store-match-data match-data)
(replace-match next t t) (cond ((equal this org-state) (message "TODO state
was already %s" (org-trim next))) ((pos-visible-in-window-p hl-pos)
(message "TODO state changed to %s" (org-trim next)))) (if head nil (setq
head (org-get-todo-sequence-head org-state) ass (assoc head
org-todo-kwd-alist) interpret (nth 1 ass) done-word (nth 3 ass)
final-done-word (nth 4 ass))) (if (memq arg (quote (nextset previousset)))
(progn (message "Keyword-Set %d/%d: %s" (- ... -1 ...) (length
org-todo-sets) (mapconcat ... ... " ")))) (setq org-last-todo-state-is-todo
(not (member org-state org-done-keywords))) (setq now-done-p (and (member
org-state org-done-keywords) (not (member this org-done-keywords)))) (and
logging (org-local-logging logging)) (if (and (or org-todo-log-states
org-log-done) (not (eq org-inhibit-logging t)) (not (memq arg ...))) (progn
(setq dolog (or ... ...)) (if (and ... ...) (progn ...)) (if (or ... ...)
(progn ...)) (if (and now-done-p org-log-done) (progn ... ...)) (if (and
org-state dolog) (progn ...)))) (org-todo-trigger-tag-changes org-state)
(and org-auto-align-tags (not org-setting-tags) (org-set-tags nil t)) (if
org-provide-todo-statistics (progn (org-update-parent-todo-statistics)))
(run-hooks (quote org-after-todo-state-change-hook)) (if (and arg (not
(member org-state org-done-keywords))) (progn (setq head
(org-get-todo-sequence-head org-state)))) (put-text-property (point-at-bol)
(point-at-eol) (quote org-todo-head) head) (if now-done-p (progn (if
(boundp ...) (progn ...)) (org-auto-repeat-maybe org-state))) (if (and
(outline-on-heading-p) (not (bolp)) (save-excursion (beginning-of-line 1)
(looking-at org-todo-line-regexp)) (< (point) (+ 2 ...))) (progn (goto-char
(or ... ...)) (and (looking-at " ") (just-one-space)))) (if
org-trigger-hook (progn (save-excursion (run-hook-with-args ...
change-plist)))) (if commentp (progn (org-toggle-comment)))))))
  (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
(let ((cl (if (eq org-loop-over-headlines-in-active-region (quote
start-level)) (quote region-start-level) (quote region)))
org-loop-over-headlines-in-active-region) (org-map-entries (list (quote
org-todo) arg) org-loop-over-headlines-in-active-region cl (if
(outline-invisible-p) (progn (org-end-of-subtree nil t))))) (if (equal arg
(quote (16))) (progn (setq arg (quote nextset)))) (if (equal arg -1) (progn
(org-cancel-repeater) (setq arg nil))) (let ((org-blocker-hook
org-blocker-hook) commentp case-fold-search) (if (equal arg (quote (64)))
(progn (setq arg nil org-blocker-hook nil))) (if (and org-blocker-hook (or
org-inhibit-blocking (org-entry-get nil "NOBLOCKING"))) (progn (setq
org-blocker-hook nil))) (save-excursion (catch (quote exit)
(org-back-to-heading t) (if (org-in-commented-heading-p t) (progn
(org-toggle-comment) (setq commentp t))) (if (looking-at
org-outline-regexp) (progn (goto-char (1- ...)))) (or (looking-at (concat "
+" org-todo-regexp "\\( +\\|[ ]*$\\)")) (looking-at "\\(?: *\\|[ ]*$\\)"))
(let* ((match-data (match-data)) (startpos (point-at-bol)) (logging (let
... ...)) (org-log-done org-log-done) (org-log-repeat org-log-repeat)
(org-todo-log-states org-todo-log-states) (org-inhibit-logging (if ... ...
org-inhibit-logging)) (this (match-string 1)) (hl-pos (match-beginning 0))
(head (org-get-todo-sequence-head this)) (ass (assoc head
org-todo-kwd-alist)) (interpret (nth 1 ass)) (done-word (nth 3 ass))
(final-done-word (nth 4 ass)) (org-last-state (or this ""))
(completion-ignore-case t) (member (member this org-todo-keywords-1)) (tail
(cdr member)) (org-state (cond ... ... ... ... ... ... ... ... ... ...
...)) (org-state (or ... org-state)) (next (if org-state ... " "))
(change-plist (list :type ... :from this :to org-state :position startpos))
dolog now-done-p) (if org-blocker-hook (progn (setq
org-last-todo-state-is-todo ...) (if ... nil ...))) (store-match-data
match-data) (replace-match next t t) (cond ((equal this org-state) (message
"TODO state was already %s" ...)) ((pos-visible-in-window-p hl-pos)
(message "TODO state changed to %s" ...))) (if head nil (setq head
(org-get-todo-sequence-head org-state) ass (assoc head org-todo-kwd-alist)
interpret (nth 1 ass) done-word (nth 3 ass) final-done-word (nth 4 ass)))
(if (memq arg (quote ...)) (progn (message "Keyword-Set %d/%d: %s" ... ...
...))) (setq org-last-todo-state-is-todo (not (member org-state
org-done-keywords))) (setq now-done-p (and (member org-state
org-done-keywords) (not ...))) (and logging (org-local-logging logging))
(if (and (or org-todo-log-states org-log-done) (not ...) (not ...)) (progn
(setq dolog ...) (if ... ...) (if ... ...) (if ... ...) (if ... ...)))
(org-todo-trigger-tag-changes org-state) (and org-auto-align-tags (not
org-setting-tags) (org-set-tags nil t)) (if org-provide-todo-statistics
(progn (org-update-parent-todo-statistics))) (run-hooks (quote
org-after-todo-state-change-hook)) (if (and arg (not ...)) (progn (setq
head ...))) (put-text-property (point-at-bol) (point-at-eol) (quote
org-todo-head) head) (if now-done-p (progn (if ... ...)
(org-auto-repeat-maybe org-state))) (if (and (outline-on-heading-p) (not
...) (save-excursion ... ...) (< ... ...)) (progn (goto-char ...) (and ...
...))) (if org-trigger-hook (progn (save-excursion ...))) (if commentp
(progn (org-toggle-comment))))))))
  org-todo(nil)
  call-interactively(org-todo)
  org-self-insert-command(1)
  call-interactively(org-self-insert-command nil nil)
  command-execute(org-self-insert-command)

[-- Attachment #2: Type: text/html, Size: 25637 bytes --]