Function: org-todo-trigger-tag-changes

org-todo-trigger-tag-changes is a byte-compiled function defined in org.el.gz.

Signature

(org-todo-trigger-tag-changes STATE)

Documentation

Apply the changes defined in org-todo-state-tags-triggers.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-todo-trigger-tag-changes (state)
  "Apply the changes defined in `org-todo-state-tags-triggers'."
  (let ((l org-todo-state-tags-triggers)
	changes)
    (when (or (not state) (equal state ""))
      (setq changes (append changes (cdr (assoc "" l)))))
    (when (and (stringp state) (> (length state) 0))
      (setq changes (append changes (cdr (assoc state l)))))
    (when (member state org-not-done-keywords)
      (setq changes (append changes (cdr (assq 'todo l)))))
    (when (member state org-done-keywords)
      (setq changes (append changes (cdr (assq 'done l)))))
    (dolist (c changes)
      (org-toggle-tag (car c) (if (cdr c) 'on 'off)))))