Hello,
I'm running Org mode 9.1 under Emacs 25.2 on Windows 10 (version
information below) and I've encountered a problem when running my
agenda commands that I'm unsure how to troubleshoot.
Org mode version 9.1 (9.1-elpaplus @ c:/scimax/elpa/org-plus-contrib-20170906/)
GNU Emacs 25.2.1 (x86_64-w64-mingw32) of 2017-04-24
After running a custom agenda command, I'm given an error, "Invalid
duration format: ":45". The backtrace is attached.
I've tried going through all my agenda files and changing any
instances of durations without a leading "0" for minutes.
:45 --> 0:45
But this doesn't seem to help. I know that recent changes (see
http://orgmode.org/Changes.html) may be related to my issue. I'm just
not sure how to troubleshoot from here.
I'd appreciate advice on next steps that I might take.
Thank you,
Will
Debugger entered--Lisp error: (error "Invalid duration format: \":45\"")
signal(error ("Invalid duration format: \":45\""))
error("Invalid duration format: %S" ":45")
org-duration-to-minutes(":45")
org-refresh-property(((effort . identity) (effort-minutes .
org-duration-to-minutes)) ":45" nil)
org-refresh-properties("Effort" ((effort . identity) (effort-minutes .
org-duration-to-minutes)))
org-refresh-effort-properties()
org-agenda-prepare-buffers(("~/Dropbox/org/work.org"
"~/Dropbox/org/work.org_archive" "~/Dropbox/org/work-someday.org"
"~/Dropbox/org/personal.org" "~/Dropbox/org/personal-someday.org"
"~/Dropbox/org/learning.org" "~/Dropbox/org/teaching-and-learning.org"
"~/Dropbox/org/refile.txt" "~/Dropbox/org/dotemacs/init.org"
"~/Dropbox/org/blog.org" "~/Dropbox/org/writing.org" "~/Dropbox/org/org.org"
"~/Dropbox/org/journal.org" "~/Dropbox/org/wiki.org"
"c:/Users/Will/Dropbox/org/journal/20161130.org" "~/Dropbox/org/root.org"
"~/Dropbox/org/infolit.org"))
(if org-agenda-multi (progn (setq buffer-read-only nil) (goto-char
(point-max)) (if (or (bobp) org-agenda-compact-blocks (not
org-agenda-block-separator)) nil (insert "\n" (if (stringp
org-agenda-block-separator) org-agenda-block-separator (make-string
(window-width) org-agenda-block-separator)) "\n")) (narrow-to-region (point)
(point-max))) (setq org-done-keywords-for-agenda nil)
(org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name)
filter-alist) (setq buffer-read-only nil) (org-agenda-reset-markers) (let
((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq
org-agenda-buffer (current-buffer)) (setq org-agenda-contributing-files nil)
(setq org-agenda-columns-active nil) (org-agenda-prepare-buffers
(org-agenda-files nil (quote ifmode))) (setq org-todo-keywords-for-agenda
(org-uniquify org-todo-keywords-for-agenda)) (setq org-done-keywords-for-agenda
(org-uniquify org-done-keywords-for-agenda)) (setq org-agenda-last-prefix-arg
current-prefix-arg) (setq org-agenda-this-buffer-name org-agenda-buffer-name)
(and name (not org-agenda-name) (set (make-local-variable (quote
org-agenda-name)) name)))
(if (org-agenda-use-sticky-p) (progn (put (quote org-agenda-tag-filter)
:preset-filter nil) (put (quote org-agenda-category-filter) :preset-filter nil)
(put (quote org-agenda-regexp-filter) :preset-filter nil)
(org-agenda-prepare-window (get-buffer org-agenda-buffer-name) filter-alist)
(message "Sticky Agenda buffer, use `r' to refresh") (or org-agenda-multi
(org-agenda-fit-window-to-buffer)) (throw (quote exit) "Sticky Agenda buffer,
use `r' to refresh")) (setq org-todo-keywords-for-agenda nil) (put (quote
org-agenda-tag-filter) :preset-filter org-agenda-tag-filter-preset) (put (quote
org-agenda-category-filter) :preset-filter org-agenda-category-filter-preset)
(put (quote org-agenda-regexp-filter) :preset-filter
org-agenda-regexp-filter-preset) (put (quote org-agenda-effort-filter)
:preset-filter org-agenda-effort-filter-preset) (if org-agenda-multi (progn
(setq buffer-read-only nil) (goto-char (point-max)) (if (or (bobp)
org-agenda-compact-blocks (not org-agenda-block-separator)) nil (insert "\n"
(if (stringp org-agenda-block-separator) org-agenda-block-separator
(make-string (window-width) org-agenda-block-separator)) "\n"))
(narrow-to-region (point) (point-max))) (setq org-done-keywords-for-agenda nil)
(org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name)
filter-alist) (setq buffer-read-only nil) (org-agenda-reset-markers) (let
((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq
org-agenda-buffer (current-buffer)) (setq org-agenda-contributing-files nil)
(setq org-agenda-columns-active nil) (org-agenda-prepare-buffers
(org-agenda-files nil (quote ifmode))) (setq org-todo-keywords-for-agenda
(org-uniquify org-todo-keywords-for-agenda)) (setq org-done-keywords-for-agenda
(org-uniquify org-done-keywords-for-agenda)) (setq org-agenda-last-prefix-arg
current-prefix-arg) (setq org-agenda-this-buffer-name org-agenda-buffer-name)
(and name (not org-agenda-name) (set (make-local-variable (quote
org-agenda-name)) name))) (setq buffer-read-only nil))
(let ((filter-alist (if org-agenda-persistent-filter (save-current-buffer
(set-buffer (get-buffer-create org-agenda-buffer-name)) (list (cons (quote tag)
org-agenda-tag-filter) (cons (quote re) org-agenda-regexp-filter) (cons (quote
effort) org-agenda-effort-filter) (cons (quote cat)
org-agenda-category-filter)))))) (if (org-agenda-use-sticky-p) (progn (put
(quote org-agenda-tag-filter) :preset-filter nil) (put (quote
org-agenda-category-filter) :preset-filter nil) (put (quote
org-agenda-regexp-filter) :preset-filter nil) (org-agenda-prepare-window
(get-buffer org-agenda-buffer-name) filter-alist) (message "Sticky Agenda
buffer, use `r' to refresh") (or org-agenda-multi
(org-agenda-fit-window-to-buffer)) (throw (quote exit) "Sticky Agenda buffer,
use `r' to refresh")) (setq org-todo-keywords-for-agenda nil) (put (quote
org-agenda-tag-filter) :preset-filter org-agenda-tag-filter-preset) (put (quote
org-agenda-category-filter) :preset-filter org-agenda-category-filter-preset)
(put (quote org-agenda-regexp-filter) :preset-filter
org-agenda-regexp-filter-preset) (put (quote org-agenda-effort-filter)
:preset-filter org-agenda-effort-filter-preset) (if org-agenda-multi (progn
(setq buffer-read-only nil) (goto-char (point-max)) (if (or (bobp)
org-agenda-compact-blocks (not org-agenda-block-separator)) nil (insert "\n"
(if (stringp org-agenda-block-separator) org-agenda-block-separator
(make-string ... org-agenda-block-separator)) "\n")) (narrow-to-region (point)
(point-max))) (setq org-done-keywords-for-agenda nil)
(org-agenda-prepare-window (get-buffer-create org-agenda-buffer-name)
filter-alist) (setq buffer-read-only nil) (org-agenda-reset-markers) (let
((inhibit-read-only t)) (erase-buffer)) (org-agenda-mode) (setq
org-agenda-buffer (current-buffer)) (setq org-agenda-contributing-files nil)
(setq org-agenda-columns-active nil) (org-agenda-prepare-buffers
(org-agenda-files nil (quote ifmode))) (setq org-todo-keywords-for-agenda
(org-uniquify org-todo-keywords-for-agenda)) (setq org-done-keywords-for-agenda
(org-uniquify org-done-keywords-for-agenda)) (setq org-agenda-last-prefix-arg
current-prefix-arg) (setq org-agenda-this-buffer-name org-agenda-buffer-name)
(and name (not org-agenda-name) (set (make-local-variable (quote
org-agenda-name)) name))) (setq buffer-read-only nil)))
org-agenda-prepare("Agenda")
(let nil (org-agenda-prepare name))
eval((let nil (org-agenda-prepare name)))
org-let(nil (org-agenda-prepare name))
org-agenda-run-series("Agenda" (((agenda "") (tags "REFILE"
((org-agenda-overriding-header "Tasks to Refile")
(org-tags-match-list-sublevels nil))) (tags-todo "-CANCELLED/!"
((org-agenda-overriding-header "Stuck Projects") (org-agenda-skip-function
(quote will/skip-non-stuck-projects)) (org-agenda-sorting-strategy (quote
(category-keep))))) (tags-todo "-HOLD-CANCELLED/!"
((org-agenda-overriding-header "Projects") (org-agenda-skip-function (quote
will/skip-non-projects)) (org-tags-match-list-sublevels (quote indented))
(org-agenda-sorting-strategy (quote (category-keep))))) (tags-todo
"-CANCELLED/!NEXT" ((org-agenda-overriding-header (concat "Project Next Tasks"
(if will/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and
SCHEDULED tasks)"))) (org-agenda-skip-function (quote
will/skip-projects-and-habits-and-single-tasks)) (org-tags-match-list-sublevels
t) (org-agenda-todo-ignore-scheduled
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-sorting-strategy (quote
(todo-state-down effort-up category-keep))))) (tags-todo
"-REFILE-CANCELLED-WAITING-HOLD/!" ((org-agenda-overriding-header (concat
"Project Subtasks" (if will/hide-scheduled-and-waiting-next-tasks "" "
(including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote
will/skip-non-project-tasks)) (org-agenda-todo-ignore-scheduled
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-sorting-strategy (quote
(category-keep))))) (tags-todo "-REFILE-CANCELLED-WAITING-HOLD-ONGOING/!"
((org-agenda-overriding-header (concat "Standalone Tasks" (if
will/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and
SCHEDULED tasks)"))) (org-agenda-skip-function (quote will/skip-project-tasks))
(org-agenda-todo-ignore-scheduled will/hide-scheduled-and-waiting-next-tasks)
(org-agenda-todo-ignore-deadlines will/hide-scheduled-and-waiting-next-tasks)
(org-agenda-todo-ignore-with-date will/hide-scheduled-and-waiting-next-tasks)
(org-agenda-sorting-strategy (quote (category-keep))))) (tags-todo
"-REFILE-CANCELLED-WAITING-HOLD+ONGOING/!" ((org-agenda-overriding-header
(concat "Ongoing Tasks" (if will/hide-scheduled-and-waiting-next-tasks "" "
(including WAITING and SCHEDULED tasks)"))) (org-agenda-skip-function (quote
will/skip-project-tasks)) (org-agenda-todo-ignore-scheduled
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-with-date
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-sorting-strategy (quote
(category-keep))))) (tags-todo "-CANCELLED+WAITING|HOLD/!"
((org-agenda-overriding-header (concat "Waiting and Postponed Tasks" (if
will/hide-scheduled-and-waiting-next-tasks "" " (including WAITING and
SCHEDULED tasks)"))) (org-agenda-skip-function (quote will/skip-non-tasks))
(org-tags-match-list-sublevels nil) (org-agenda-sorting-strategy (quote
(timestamp-up))) (org-agenda-todo-ignore-scheduled
will/hide-scheduled-and-waiting-next-tasks) (org-agenda-todo-ignore-deadlines
will/hide-scheduled-and-waiting-next-tasks))) (tags "-REFILE/"
((org-agenda-overriding-header "Tasks to Archive") (org-agenda-skip-function
(quote will/skip-non-archivable-tasks)) (org-tags-match-list-sublevels nil))))
nil))
(if (or (symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type
(nth 2 entry) org-match (eval (nth 3 entry)) lprops (nth 4 entry)) (if
org-agenda-sticky (setq org-agenda-buffer-name (or (and (stringp org-match)
(format "*Org Agenda(%s:%s)*" org-keys org-match)) (format "*Org Agenda(%s)*"
org-keys)))) (put (quote org-agenda-redo-command) (quote org-lprops) lprops)
(cond ((eq type (quote agenda)) (org-let lprops (quote (org-agenda-list
current-prefix-arg)))) ((eq type (quote agenda*)) (org-let lprops (quote
(org-agenda-list current-prefix-arg nil nil t)))) ((eq type (quote alltodo))
(org-let lprops (quote (org-todo-list current-prefix-arg)))) ((eq type (quote
search)) (org-let lprops (quote (org-search-view current-prefix-arg org-match
nil)))) ((eq type (quote stuck)) (org-let lprops (quote
(org-agenda-list-stuck-projects current-prefix-arg)))) ((eq type (quote tags))
(org-let lprops (quote (org-tags-view current-prefix-arg org-match)))) ((eq
type (quote tags-todo)) (org-let lprops (quote (org-tags-view (quote ...)
org-match)))) ((eq type (quote todo)) (org-let lprops (quote (org-todo-list
org-match)))) ((eq type (quote tags-tree)) (org-check-for-org-mode) (org-let
lprops (quote (org-match-sparse-tree current-prefix-arg org-match)))) ((eq type
(quote todo-tree)) (org-check-for-org-mode) (org-let lprops (quote (org-occur
(concat "^" org-outline-regexp "[ ]*" ... "\\>"))))) ((eq type (quote
occur-tree)) (org-check-for-org-mode) (org-let lprops (quote (org-occur
org-match)))) ((functionp type) (org-let lprops (quote (funcall type
org-match)))) ((fboundp type) (org-let lprops (quote (funcall type
org-match)))) (t (user-error "Invalid custom agenda command type %s" type))))
(org-agenda-run-series (nth 1 entry) (cdr (cdr entry))))
(cond ((setq entry (assoc org-keys org-agenda-custom-commands)) (if (or
(symbolp (nth 2 entry)) (functionp (nth 2 entry))) (progn (setq type (nth 2
entry) org-match (eval (nth 3 entry)) lprops (nth 4 entry)) (if
org-agenda-sticky (setq org-agenda-buffer-name (or (and ... ...) (format "*Org
Agenda(%s)*" org-keys)))) (put (quote org-agenda-redo-command) (quote
org-lprops) lprops) (cond ((eq type (quote agenda)) (org-let lprops (quote
...))) ((eq type (quote agenda*)) (org-let lprops (quote ...))) ((eq type
(quote alltodo)) (org-let lprops (quote ...))) ((eq type (quote search))
(org-let lprops (quote ...))) ((eq type (quote stuck)) (org-let lprops (quote
...))) ((eq type (quote tags)) (org-let lprops (quote ...))) ((eq type (quote
tags-todo)) (org-let lprops (quote ...))) ((eq type (quote todo)) (org-let
lprops (quote ...))) ((eq type (quote tags-tree)) (org-check-for-org-mode)
(org-let lprops (quote ...))) ((eq type (quote todo-tree))
(org-check-for-org-mode) (org-let lprops (quote ...))) ((eq type (quote
occur-tree)) (org-check-for-org-mode) (org-let lprops (quote ...))) ((functionp
type) (org-let lprops (quote ...))) ((fboundp type) (org-let lprops (quote
...))) (t (user-error "Invalid custom agenda command type %s" type))))
(org-agenda-run-series (nth 1 entry) (cdr (cdr entry))))) ((equal org-keys "C")
(setq org-agenda-custom-commands org-agenda-custom-commands-orig)
(customize-variable (quote org-agenda-custom-commands))) ((equal org-keys "a")
(call-interactively (quote org-agenda-list))) ((equal org-keys "s")
(call-interactively (quote org-search-view))) ((equal org-keys "S")
(org-call-with-arg (quote org-search-view) (or arg (quote (4))))) ((equal
org-keys "t") (call-interactively (quote org-todo-list))) ((equal org-keys "T")
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M")
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal
org-keys "?") (org-tags-view nil "+FLAGGED") (add-hook (quote
post-command-hook) (function (lambda nil (if (current-message) nil (let* (...
...) (if note ...))))) t t)) ((equal org-keys "#") (call-interactively (quote
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable
(quote org-stuck-projects))) (t (user-error "Invalid agenda key")))
(let* ((prefix-descriptions nil) (org-agenda-buffer-name
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name)
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup))
(org-agenda-custom-commands-orig org-agenda-custom-commands)
(org-agenda-custom-commands (delq nil (mapcar (function (lambda (x) (cond ...
... ... ...))) org-agenda-custom-commands))) (org-agenda-custom-commands
(org-contextualize-keys org-agenda-custom-commands
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans)
(if org-agenda-overriding-restriction nil (if
org-agenda-keep-restricted-file-list nil (put (quote org-agenda-files) (quote
org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put
(quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote
org-agenda-redo-command) (quote last-args) nil) (setq
org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil (setq ans
(org-agenda-get-restriction-and-command prefix-descriptions) org-keys (car ans)
restriction (cdr ans))) (if org-agenda-sticky (setq org-agenda-buffer-name
(format "*Org Agenda(%s)*" org-keys))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction
(quote region)) (setq org-agenda-restrict (current-buffer)) (move-marker
org-agenda-restrict-begin (region-beginning)) (move-marker
org-agenda-restrict-end (region-end))) ((eq restriction (quote subtree))
(save-excursion (setq org-agenda-restrict (current-buffer))
(org-back-to-heading t) (move-marker org-agenda-restrict-begin (point))
(move-marker org-agenda-restrict-end (progn ...))))))) (cond ((setq entry
(assoc org-keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry))
(functionp (nth 2 entry))) (progn (setq type (nth 2 entry) org-match (eval (nth
3 entry)) lprops (nth 4 entry)) (if org-agenda-sticky (setq
org-agenda-buffer-name (or ... ...))) (put (quote org-agenda-redo-command)
(quote org-lprops) lprops) (cond ((eq type ...) (org-let lprops ...)) ((eq type
...) (org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...)
(org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...)
(org-let lprops ...)) ((eq type ...) (org-let lprops ...)) ((eq type ...)
(org-let lprops ...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops
...)) ((eq type ...) (org-check-for-org-mode) (org-let lprops ...)) ((eq type
...) (org-check-for-org-mode) (org-let lprops ...)) ((functionp type) (org-let
lprops ...)) ((fboundp type) (org-let lprops ...)) (t (user-error "Invalid
custom agenda command type %s" type)))) (org-agenda-run-series (nth 1 entry)
(cdr (cdr entry))))) ((equal org-keys "C") (setq org-agenda-custom-commands
org-agenda-custom-commands-orig) (customize-variable (quote
org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively (quote
org-agenda-list))) ((equal org-keys "s") (call-interactively (quote
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote
org-search-view) (or arg (quote (4))))) ((equal org-keys "t")
(call-interactively (quote org-todo-list))) ((equal org-keys "T")
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M")
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal
org-keys "?") (org-tags-view nil "+FLAGGED") (add-hook (quote
post-command-hook) (function (lambda nil (if (current-message) nil (let* ...
...)))) t t)) ((equal org-keys "#") (call-interactively (quote
org-agenda-list-stuck-projects))) ((equal org-keys "/") (call-interactively
(quote org-occur-in-agenda-files))) ((equal org-keys "!") (customize-variable
(quote org-stuck-projects))) (t (user-error "Invalid agenda key"))))
(catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-buffer-name
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name)
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup))
(org-agenda-custom-commands-orig org-agenda-custom-commands)
(org-agenda-custom-commands (delq nil (mapcar (function (lambda ... ...))
org-agenda-custom-commands))) (org-agenda-custom-commands
(org-contextualize-keys org-agenda-custom-commands
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans)
(if org-agenda-overriding-restriction nil (if
org-agenda-keep-restricted-file-list nil (put (quote org-agenda-files) (quote
org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put
(quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote
org-agenda-redo-command) (quote last-args) nil) (setq
org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil (setq ans
(org-agenda-get-restriction-and-command prefix-descriptions) org-keys (car ans)
restriction (cdr ans))) (if org-agenda-sticky (setq org-agenda-buffer-name
(format "*Org Agenda(%s)*" org-keys))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction
(quote region)) (setq org-agenda-restrict (current-buffer)) (move-marker
org-agenda-restrict-begin (region-beginning)) (move-marker
org-agenda-restrict-end (region-end))) ((eq restriction (quote subtree))
(save-excursion (setq org-agenda-restrict ...) (org-back-to-heading t)
(move-marker org-agenda-restrict-begin ...) (move-marker
org-agenda-restrict-end ...)))))) (cond ((setq entry (assoc org-keys
org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp (nth 2
entry))) (progn (setq type (nth 2 entry) org-match (eval ...) lprops (nth 4
entry)) (if org-agenda-sticky (setq org-agenda-buffer-name ...)) (put (quote
org-agenda-redo-command) (quote org-lprops) lprops) (cond (... ...) (... ...)
(... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (...
... ...) (... ... ...) (... ...) (... ...) (t ...))) (org-agenda-run-series
(nth 1 entry) (cdr (cdr entry))))) ((equal org-keys "C") (setq
org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable
(quote org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively
(quote org-agenda-list))) ((equal org-keys "s") (call-interactively (quote
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote
org-search-view) (or arg (quote (4))))) ((equal org-keys "t")
(call-interactively (quote org-todo-list))) ((equal org-keys "T")
(org-call-with-arg (quote org-todo-list) (or arg (quote (4))))) ((equal
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M")
(org-call-with-arg (quote org-tags-view) (or arg (quote (4))))) ((equal
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal
org-keys "?") (org-tags-view nil "+FLAGGED") (add-hook (quote
post-command-hook) (function (lambda nil (if ... nil ...))) t t)) ((equal
org-keys "#") (call-interactively (quote org-agenda-list-stuck-projects)))
((equal org-keys "/") (call-interactively (quote org-occur-in-agenda-files)))
((equal org-keys "!") (customize-variable (quote org-stuck-projects))) (t
(user-error "Invalid agenda key")))))
(lambda (&optional arg org-keys restriction) "Dispatch agenda commands to
collect entries to the agenda buffer.\nPrompts for a command to execute. Any
prefix arg will be passed\non to the selected command. The default selections
are:\n\na Call `org-agenda-list' to display the agenda for current day or
week.\nt Call `org-todo-list' to display the global todo list.\nT Call
`org-todo-list' to display the global todo list, select only\n entries
with a specific TODO keyword (the user gets a prompt).\nm Call
`org-tags-view' to display headlines with tags matching\n a condition
(the user is prompted for the condition).\nM Like `m', but select only TODO
entries, no ordinary headlines.\ne Export views to associated files.\ns
Search entries for keywords.\nS Search entries for keywords, only with TODO
keywords.\n/ Multi occur across all agenda files and also files listed\n
in `org-agenda-text-search-extra-files'.\n< Restrict agenda commands to
buffer, subtree, or region.\n Press several times to get the desired
effect.\n> Remove a previous restriction.\n# List \"stuck\"
projects.\n! Configure what \"stuck\" means.\nC Configure custom agenda
commands.\n\nMore commands can be added by configuring the
variable\n`org-agenda-custom-commands'. In particular, specific tags and TODO
keyword\nsearches can be pre-defined in this way.\n\nIf the current buffer is
in Org mode and visiting a file, you can also\nfirst press `<' once to indicate
that the agenda should be temporarily\n(until the next use of `\\[org-agenda]')
restricted to the current file.\nPressing `<' twice means to restrict to the
current subtree or region\n(if active)." (interactive "P") (catch (quote exit)
(let* ((prefix-descriptions nil) (org-agenda-buffer-name
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name)
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup))
(org-agenda-custom-commands-orig org-agenda-custom-commands)
(org-agenda-custom-commands (delq nil (mapcar (function ...)
org-agenda-custom-commands))) (org-agenda-custom-commands
(org-contextualize-keys org-agenda-custom-commands
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans)
(if org-agenda-overriding-restriction nil (if
org-agenda-keep-restricted-file-list nil (put (quote org-agenda-files) (quote
org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put
(quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote
org-agenda-redo-command) (quote last-args) nil) (setq
org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil (setq ans
(org-agenda-get-restriction-and-command prefix-descriptions) org-keys (car ans)
restriction (cdr ans))) (if org-agenda-sticky (setq org-agenda-buffer-name
(format "*Org Agenda(%s)*" org-keys))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction ...)
(setq org-agenda-restrict ...) (move-marker org-agenda-restrict-begin ...)
(move-marker org-agenda-restrict-end ...)) ((eq restriction ...)
(save-excursion ... ... ... ...))))) (cond ((setq entry (assoc org-keys
org-agenda-custom-commands)) (if (or (symbolp ...) (functionp ...)) (progn
(setq type ... org-match ... lprops ...) (if org-agenda-sticky ...) (put ...
... lprops) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...))
(org-agenda-run-series (nth 1 entry) (cdr ...)))) ((equal org-keys "C") (setq
org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable
(quote org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively
(quote org-agenda-list))) ((equal org-keys "s") (call-interactively (quote
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote
org-search-view) (or arg (quote ...)))) ((equal org-keys "t")
(call-interactively (quote org-todo-list))) ((equal org-keys "T")
(org-call-with-arg (quote org-todo-list) (or arg (quote ...)))) ((equal
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M")
(org-call-with-arg (quote org-tags-view) (or arg (quote ...)))) ((equal
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal
org-keys "?") (org-tags-view nil "+FLAGGED") (add-hook (quote
post-command-hook) (function (lambda nil ...)) t t)) ((equal org-keys "#")
(call-interactively (quote org-agenda-list-stuck-projects))) ((equal org-keys
"/") (call-interactively (quote org-occur-in-agenda-files))) ((equal org-keys
"!") (customize-variable (quote org-stuck-projects))) (t (user-error "Invalid
agenda key"))))))()
apply((lambda (&optional arg org-keys restriction) "Dispatch agenda commands
to collect entries to the agenda buffer.\nPrompts for a command to execute.
Any prefix arg will be passed\non to the selected command. The default
selections are:\n\na Call `org-agenda-list' to display the agenda for
current day or week.\nt Call `org-todo-list' to display the global todo
list.\nT Call `org-todo-list' to display the global todo list, select
only\n entries with a specific TODO keyword (the user gets a prompt).\nm
Call `org-tags-view' to display headlines with tags matching\n a
condition (the user is prompted for the condition).\nM Like `m', but
select only TODO entries, no ordinary headlines.\ne Export views to
associated files.\ns Search entries for keywords.\nS Search entries for
keywords, only with TODO keywords.\n/ Multi occur across all agenda files
and also files listed\n in `org-agenda-text-search-extra-files'.\n<
Restrict agenda commands to buffer, subtree, or region.\n Press several
times to get the desired effect.\n> Remove a previous restriction.\n#
List \"stuck\" projects.\n! Configure what \"stuck\" means.\nC
Configure custom agenda commands.\n\nMore commands can be added by configuring
the variable\n`org-agenda-custom-commands'. In particular, specific tags and
TODO keyword\nsearches can be pre-defined in this way.\n\nIf the current buffer
is in Org mode and visiting a file, you can also\nfirst press `<' once to
indicate that the agenda should be temporarily\n(until the next use of
`\\[org-agenda]') restricted to the current file.\nPressing `<' twice means to
restrict to the current subtree or region\n(if active)." (interactive "P")
(catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-buffer-name
org-agenda-buffer-name) (org-agenda-window-setup (if (equal (buffer-name)
org-agenda-buffer-name) (quote current-window) org-agenda-window-setup))
(org-agenda-custom-commands-orig org-agenda-custom-commands)
(org-agenda-custom-commands (delq nil (mapcar (function ...)
org-agenda-custom-commands))) (org-agenda-custom-commands
(org-contextualize-keys org-agenda-custom-commands
org-agenda-custom-commands-contexts)) (buf (current-buffer)) (bfn
(buffer-file-name (buffer-base-buffer))) entry key type org-match lprops ans)
(if org-agenda-overriding-restriction nil (if
org-agenda-keep-restricted-file-list nil (put (quote org-agenda-files) (quote
org-restrict) nil)) (setq org-agenda-restrict nil) (move-marker
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil)) (put
(quote org-agenda-redo-command) (quote org-lprops) nil) (put (quote
org-agenda-redo-command) (quote last-args) nil) (setq
org-agenda-last-dispatch-buffer (current-buffer)) (if org-keys nil (setq ans
(org-agenda-get-restriction-and-command prefix-descriptions) org-keys (car ans)
restriction (cdr ans))) (if org-agenda-sticky (setq org-agenda-buffer-name
(format "*Org Agenda(%s)*" org-keys))) (if (and (not
org-agenda-overriding-restriction) restriction) (progn (put (quote
org-agenda-files) (quote org-restrict) (list bfn)) (cond ((eq restriction ...)
(setq org-agenda-restrict ...) (move-marker org-agenda-restrict-begin ...)
(move-marker org-agenda-restrict-end ...)) ((eq restriction ...)
(save-excursion ... ... ... ...))))) (cond ((setq entry (assoc org-keys
org-agenda-custom-commands)) (if (or (symbolp ...) (functionp ...)) (progn
(setq type ... org-match ... lprops ...) (if org-agenda-sticky ...) (put ...
... lprops) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...))
(org-agenda-run-series (nth 1 entry) (cdr ...)))) ((equal org-keys "C") (setq
org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable
(quote org-agenda-custom-commands))) ((equal org-keys "a") (call-interactively
(quote org-agenda-list))) ((equal org-keys "s") (call-interactively (quote
org-search-view))) ((equal org-keys "S") (org-call-with-arg (quote
org-search-view) (or arg (quote ...)))) ((equal org-keys "t")
(call-interactively (quote org-todo-list))) ((equal org-keys "T")
(org-call-with-arg (quote org-todo-list) (or arg (quote ...)))) ((equal
org-keys "m") (call-interactively (quote org-tags-view))) ((equal org-keys "M")
(org-call-with-arg (quote org-tags-view) (or arg (quote ...)))) ((equal
org-keys "e") (call-interactively (quote org-store-agenda-views))) ((equal
org-keys "?") (org-tags-view nil "+FLAGGED") (add-hook (quote
post-command-hook) (function (lambda nil ...)) t t)) ((equal org-keys "#")
(call-interactively (quote org-agenda-list-stuck-projects))) ((equal org-keys
"/") (call-interactively (quote org-occur-in-agenda-files))) ((equal org-keys
"!") (customize-variable (quote org-stuck-projects))) (t (user-error "Invalid
agenda key")))))) nil)
org-agenda()
funcall-interactively(org-agenda)
call-interactively(org-agenda nil nil)
command-execute(org-agenda)
