emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] warning while loading org-agenda [9.7.12 (9.7.12-28c83e @ /Users/andrew/.emacs.d/elpa/29.1/develop/org-9.7.12/)]
@ 2024-10-11  6:56 Andrew Berger
  2024-10-12 13:00 ` Ihor Radchenko
  0 siblings, 1 reply; 4+ messages in thread
From: Andrew Berger @ 2024-10-11  6:56 UTC (permalink / raw)
  To: emacs-orgmode@gnu.org



Got the following warning while evaluating org-agenda.

Emacs : GNU Emacs 29.1 (build 1, aarch64-apple-darwin23.4.0, Carbon 
Version 170 AppKit 2487.5)
of 2024-04-28
Package: Org mode version 9.7.12 (9.7.12-28c83e @ 
/Users/andrew/.emacs.d/elpa/29.1/develop/org-9.7.12/)

current state:
==============
(setq
org-agenda-prefix-format '((agenda . " %i %-12:c%?-12t% s") (todo . " %i 
%-12:c %l%l") (tags . " %i %-12:c %l%l") (search . " %i %-12:c %l%L"))
org-link-elisp-confirm-function 'yes-or-no-p
org-directory "/Users/andrew/org"
org-bibtex-headline-format-function 'org-bibtex-headline-format-default
org-download-file-format-function 'org-download-file-format-default
org-log-done 'time
org-startup-folded t
org-babel-after-execute-hook '(spacemacs/ob-fix-inline-images)
org-agenda-files '("~/org/agenda.org" "~/org/finances.org" 
"~/org/healthcare.org" "~/org/journal.org" "~/org/lab_notebook.org" 
"~/org/notes.org" "~/org/research.org"
"~/org/tooling.org" "~/org/wiki.org" "~/org/academics.org" 
"~/org/research/grad_apps.org" "~/org/research/meetings.org" 
"~/org/research/papers.org")
org-capture-templates '(("n" "notes") ("nn" "general note" entry 
(file+headline "~/org/notes.org" "general") "* %?%^G %(org-set-property 
\"created\" \"%U\")")
("np" "project note" entry (file+headline "~/org/notes.org" "project") 
"* %?%^{project|general}p %(org-set-property \"created\" \"%U\")") ("t" 
"tasks")
("tt" "untimed" entry (file+headline "~/org/agenda.org" "tasks") "* TODO 
[#%^{priority|B}] %? %^{project|general}p %(org-set-property \"created\" 
\"%U\")")
("td" "deadline" entry (file+headline "~/org/agenda.org" "tasks")
"* TODO [#%^{priority|B}] %?\nDEADLINE: %^{specify deadline}t 
%^{project|general}p %(org-set-property \"created\" \"%U\")")
("ts" "scheduled" entry (file+headline "~/org/agenda.org" "tasks")
"* TODO [#%^{priority|B}] %?\nSCHEDULED: %^{specify scheduled start 
date}t %^{project|general}p %(org-set-property \"created\" \"%U\")")
("c" "calendar") ("cc" "date & time" entry (file+headline 
"~/org/agenda.org" "calendar") "* %^T %?")
("cd" "date" entry (file+headline "~/org/agenda.org" "calendar") "* %^t 
%?")
("cb" "birthday" item (file+headline "~/org/agenda.org" "birthdays")
"- \\%\\%(org-anniversary %^{year (if known)} %^{month} %^{day}) 
%^{person (if year is known, you can add a \\%d to have their age 
listed)}")
("cr" "range" entry (file+headline "~/org/agenda.org" "calendar") "* 
%^t--%^t %?")
("cm" "meeting" entry (file+headline "~/org/agenda.org" "meetings") "* 
%^T %? %^{meeting-type}p %(org-set-property \"entry-type\" \"meeting\")")
("j" "journal") ("jr" "research journal" entry (file+olp+datetree 
"~/org/journal.org" "research") "* %U - %? :journal:" :jump-to-captured t)
("ja" "academics journal" entry (file+olp+datetree "~/org/journal.org" 
"academics") "* %U - %? :journal:" :jump-to-captured t)
("jj" "personal journal" entry (file+olp+datetree "~/org/journal.org" 
"personal") "* %U - %? :journal: %(org-set-property \"entry-visibility\" 
\"private\")"
:jump-to-captured t)
("jn" "lab notebook")
("jnn" "lab notebook entry" entry (file+olp+datetree 
"~/org/lab_notebook.org" "log") "* %U - %? :lab_notebook: %^{project}p 
%^{subproject}p" :jump-to-captured
t)
("jni" "imaging session" entry (file+olp+datetree 
"~/org/lab_notebook.org" "log") 
"%[~/org/artifacts/capture_templates/clandinin_2p_imaging_checklist.org]"
:jump-to-captured t)
)
org-persist-after-read-hook '(org-element--cache-persist-after-read)
org-refile-targets '((org-agenda-files :maxlevel . 9) (nil :maxlevel . 9))
org-export-before-parsing-hook '(org-attach-expand-links)
org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe 
org-babel-header-arg-expand)
org-default-notes-file "/Users/andrew/org/notes.org"
org-export-async-init-file 
"/Users/andrew/.emacs.d/layers/+emacs/org/local/org-async-init.el"
org-refile-use-outline-path 'file
org-publish-timestamp-directory "~/.emacs.d/.cache/.org-timestamps/"
org-archive-hook '(org-attach-archive-delete-maybe)
org-file-apps '((auto-mode . emacs) (directory . emacs) ("\\.mm\\'" . 
default) ("\\.x?html?\\'" . default) ("\\.pdf\\'" . emacs))
org-odt-format-inlinetask-function 
'org-odt-format-inlinetask-default-function
org-edit-src-content-indentation 0
org-ascii-format-drawer-function #[771 "\207" [] 4 "\n\n(fn NAME 
CONTENTS WIDTH)"]
org-cycle-hook '(org-cycle-hide-archived-subtrees 
org-cycle-show-empty-lines 
org-cycle-optimize-window-after-visibility-change 
org-cycle-display-inline-images)
org-persist-before-read-hook '(org-element--cache-persist-before-read)
org-modules '(org-habit ol-doi ol-w3m ol-bbdb ol-bibtex ol-docview 
ol-gnus ol-info ol-irc ol-mhe ol-rmail ol-eww)
org-yank-image-file-name-function 'org-yank-image-autogen-filename
org-link-from-user-regexp 
"\\<andrew@Andrews-MacBook-Pro-4\\.local\\>\\|\\<Andrew Berger\\>"
org-image-actual-width nil
org-mode-hook '(turn-on-org-cdlatex #[0 "\300\301\302\303\304$\207" 
[add-hook change-major-mode-hook org-fold-show-all append local] 5]
#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook 
org-babel-show-result-all append local] 5] org-babel-result-hide-spec 
org-babel-hide-all-hashes
#[0 "\301\211\207" [imenu-create-index-function org-imenu-get-tree] 2] 
spacemacs/org-setup-evil-surround spacemacs/load-yasnippet 
toc-org-enable org-superstar-mode
org-download-enable dotspacemacs//prettify-spacemacs-docs 
spacemacs//evil-org-mode spacemacs//init-company-org-mode company-mode)
org-babel-load-languages '((R . t) (python . t) (shell . t) (js . t) 
(emacs-lisp . t))
org-id-locations-file "~/.emacs.d/.cache/.org-id-locations"
org-latex-format-drawer-function '(closure 
(engrave-faces-latex-mathescape engrave-faces-current-preset-style 
engrave-faces-latex-output-style t) (_ contents) contents)
org-download-abbreviate-filename-function 'file-relative-name
org-latex-format-headline-function 
'org-latex-format-headline-default-function
org-confirm-shell-link-function 'yes-or-no-p
org-present-mode-hook '(spacemacs//org-present-start)
org-projectile-per-project-filepath "TODOs.org"
org-present-mode-quit-hook '(spacemacs//org-present-end)
org-download-annotate-function 'org-download-annotate-default
org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
outline-isearch-open-invisible-function 'outline-isearch-open-invisible
org-agenda-sorting-strategy '((agenda habit-up time-up priority-down 
category-keep) (todo category-keep) (tags category-keep) (search 
category-keep))
org-startup-indented t
org-sort-function 'string-collate-lessp
org-odt-format-headline-function 'org-odt-format-headline-default-function
org-link-translation-function 'toc-org-unhrefify
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
org-confirm-elisp-link-function 'yes-or-no-p
org-log-buffer-setup-hook '(spacemacs//org-note-mode)
org-todo-keywords '((sequence "TODO(t)" "|" "WAITING(w)" "|" "DONE(d)") 
(sequence "|" "CANCELED(c)"))
org--warnings '("org-element--cache: Org parser error in 
academics.org::#<marker at 74688 in academics.org>. Resetting.\n The 
error was: (error \"Invalid search bound (wrong side of point)\")\n 
Backtrace:\n\" backtrace-to-string(nil)\n (progn (backtrace-to-string 
(backtrace-get-frames 'backtrace)))\n (if (and (fboundp 
'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn 
(backtrace-to-string (backtrace-get-frames 'backtrace))))\n (format 
\\\"Org parser error in %s::%S. Resetting.\\\\n The error ...\\\" 
(buffer-name (current-buffer)) epom err (if (and (fboundp 
'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn 
(backtrace-to-string (backtrace-get-frames 'backtrace)))))\n (let* 
((format-string (format \\\"Org parser error in %s::%S. Resetting.\\\\n 
The error ...\\\" (buffer-name (current-buffer)) epom err (if (and 
(fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn 
(backtrace-to-string (backtrace-get-frames ...)))))) (format-string (if 
(or (not org-element--cache-diagnostics-ring) (not (eq 'backtrace 
org-element--cache-self-verify))) format-string (prog1 (concat (format 
\\\"Warning(%s): \\\" (buffer-name ...)) format-string 
\\\"\\\\nBacktrace:\\\\n \\\" (mapconcat #'identity (ring-elements 
org-element--cache-diagnostics-ring) \\\"\\\\n \\\")) (setq 
org-element--cache-diagnostics-ring nil))))) (if (and (boundp 
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat 
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons 
(concat \\\"org-element--cache: \\\" format-string) org--warnings)) 
(display-warning '(org-element org-element-cache) (concat 
\\\"org-element--cache: \\\" format-string))))\n (condition-case err 
(org-element--parse-to epom) ((debug error) (let* ((format-string 
(format \\\"Org parser error in %s::%S. Resetting.\\\\n The error 
...\\\" (buffer-name (current-buffer)) epom err (if (and ... ...) (progn 
...)))) (format-string (if (or (not org-element--cache-diagnostics-ring) 
(not ...)) format-string (prog1 (concat ... format-string 
\\\"\\\\nBacktrace:\\\\n \\\" ...) (setq 
org-element--cache-diagnostics-ring nil))))) (if (and (boundp 
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat 
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons 
(concat \\\"org-element--cache: \\\" format-string) org--warnings)) 
(display-warning '(org-element org-element-cache) (concat 
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset) 
(org-element--parse-to epom)))\n (if cached-only (if (and 
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) 
(< epom (aref (car org-element--cache-sync-requests) 1)))) (progn 
(org-element--cache-find epom))) (condition-case err 
(org-element--parse-to epom) ((debug error) (let* ((format-string 
(format \\\"Org parser error in %s::%S. Resetting.\\\\n The error 
...\\\" (buffer-name ...) epom err (if ... ...))) (format-string (if (or 
... ...) format-string (prog1 ... ...)))) (if (and (boundp 
'org-batch-test) org-batch-test) (error \\\"%s\\\" (concat 
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons 
(concat \\\"org-element--cache: \\\" format-string) org--warnings)) 
(display-warning '(org-element org-element-cache) (concat 
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset) 
(org-element--parse-to epom))))\n (setq element (if cached-only (if (and 
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) 
(< epom (aref (car org-element--cache-sync-requests) 1)))) (progn 
(org-element--cache-find epom))) (condition-case err 
(org-element--parse-to epom) ((debug error) (let* ((format-string 
(format \\\"Org parser error in %s::%S. Resetting.\\\\n The error 
...\\\" ... epom err ...)) (format-string (if ... format-string ...))) 
(if (and (boundp ...) org-batch-test) (error \\\"%s\\\" (concat 
\\\"org-element--cache: \\\" format-string)) (setq org--warnings (cons 
... org--warnings)) (display-warning '... (concat 
\\\"org-element--cache: \\\" format-string)))) (org-element-cache-reset) 
(org-element--parse-to epom)))))\n (let (element) (if 
(org-element--cache-active-p) (progn (if (not (save-current-buffer 
(set-buffer (or ... ...)) org-element--cache)) (org-element-cache-reset) 
(if cached-only nil (org-element--cache-sync (current-buffer) epom))))) 
(setq element (if cached-only (if (and (org-element--cache-active-p) (or 
(not org-element--cache-sync-requests) (< epom (aref ... 1)))) (progn 
(org-element--cache-find epom))) (condition-case err 
(org-element--parse-to epom) ((debug error) (let* ((format-string ...) 
(format-string ...)) (if (and ... org-batch-test) (error \\\"%s\\\" ...) 
(setq org--warnings ...) (display-warning ... ...))) 
(org-element-cache-reset) (org-element--parse-to epom))))) (if (and 
(org-element--cache-active-p) element (org-element--cache-verify-element 
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq 
(org-element-type element t) 'org-data) nil (if (and cached-only (not 
(and element (or (= epom ...) (and ... ... ...) (and ... ... ...) (and 
... ... ...))))) nil (if (not (eq (org-element-type element t) 
'section)) element (org-element-at-point (1+ epom) cached-only)))))\n 
(save-restriction (widen) (goto-char (or --mepom (point))) (if 
(derived-mode-p 'org-mode) nil (display-warning '(org-element 
org-element-parser) (format-message \\\"`org-element-at-point' cannot be 
used in non-Org b...\\\" (current-buffer) major-mode))) (if (and 
cached-only (memq this-command 
org-element--cache-non-modifying-commands)) (progn (setq cached-only 
nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not 
(save-current-buffer (set-buffer ...) org-element--cache)) 
(org-element-cache-reset) (if cached-only nil (org-element--cache-sync 
(current-buffer) epom))))) (setq element (if cached-only (if (and 
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) 
(< epom ...))) (progn (org-element--cache-find epom))) (condition-case 
err (org-element--parse-to epom) ((debug error) (let* (... ...) (if ... 
... ... ...)) (org-element-cache-reset) (org-element--parse-to epom))))) 
(if (and (org-element--cache-active-p) element 
(org-element--cache-verify-element element)) (progn (setq element 
(org-element--parse-to epom)))) (if (eq (org-element-type element t) 
'org-data) nil (if (and cached-only (not (and element (or ... ... ... 
...)))) nil (if (not (eq (org-element-type element t) 'section)) element 
(org-element-at-point (1+ epom) cached-only))))))\n (save-excursion 
(save-restriction (widen) (goto-char (or --mepom (point))) (if 
(derived-mode-p 'org-mode) nil (display-warning '(org-element 
org-element-parser) (format-message \\\"`org-element-at-point' cannot be 
used in non-Org b...\\\" (current-buffer) major-mode))) (if (and 
cached-only (memq this-command 
org-element--cache-non-modifying-commands)) (progn (setq cached-only 
nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not 
(save-current-buffer ... org-element--cache)) (org-element-cache-reset) 
(if cached-only nil (org-element--cache-sync ... epom))))) (setq element 
(if cached-only (if (and (org-element--cache-active-p) (or ... ...)) 
(progn (org-element--cache-find epom))) (condition-case err 
(org-element--parse-to epom) ((debug error) (let* ... ...) 
(org-element-cache-reset) (org-element--parse-to epom))))) (if (and 
(org-element--cache-active-p) element (org-element--cache-verify-element 
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq 
(org-element-type element t) 'org-data) nil (if (and cached-only (not 
(and element ...))) nil (if (not (eq ... ...)) element 
(org-element-at-point (1+ epom) cached-only)))))))\n (save-excursion 
(cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp 
--mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray ...)) (if parray 
(let* ... ...) (let* ... ...)))) (progn (set-buffer (let (...) (let* ... 
...))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray ...)) (if 
parray (let* ... ...) (let* ... ...))))))) (save-excursion 
(save-restriction (widen) (goto-char (or --mepom (point))) (if 
(derived-mode-p 'org-mode) nil (display-warning '(org-element 
org-element-parser) (format-message \\\"`org-element-at-point' cannot be 
used in non-Org b...\\\" (current-buffer) major-mode))) (if (and 
cached-only (memq this-command 
org-element--cache-non-modifying-commands)) (progn (setq cached-only 
nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not 
...) (org-element-cache-reset) (if cached-only nil ...)))) (setq element 
(if cached-only (if (and ... ...) (progn ...)) (condition-case err 
(org-element--parse-to epom) (... ... ... ...)))) (if (and 
(org-element--cache-active-p) element (org-element--cache-verify-element 
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq 
(org-element-type element t) 'org-data) nil (if (and cached-only (not 
...)) nil (if (not ...) element (org-element-at-point ... 
cached-only))))))))\n (let ((--mepom epom)) (save-excursion (cond 
((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp 
--mepom)) (t (if (let ((idx ...)) (let* (...) (if parray ... ...))) 
(progn (set-buffer (let ... ...)))) (setq --mepom (let ((idx ...)) (let* 
(...) (if parray ... ...)))))) (save-excursion (save-restriction (widen) 
(goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil 
(display-warning '(org-element org-element-parser) (format-message 
\\\"`org-element-at-point' cannot be used in non-Org b...\\\" 
(current-buffer) major-mode))) (if (and cached-only (memq this-command 
org-element--cache-non-modifying-commands)) (progn (setq cached-only 
nil))) (let (element) (if (org-element--cache-active-p) (progn (if ... 
... ...))) (setq element (if cached-only (if ... ...) (condition-case 
err ... ...))) (if (and (org-element--cache-active-p) element 
(org-element--cache-verify-element element)) (progn (setq element ...))) 
(if (eq (org-element-type element t) 'org-data) nil (if (and cached-only 
...) nil (if ... element ...))))))))\n (if (org-element-type epom t) 
epom (setq epom (or epom (point))) (let ((--mepom epom)) (save-excursion 
(cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp 
--mepom)) (t (if (let (...) (let* ... ...)) (progn (set-buffer ...))) 
(setq --mepom (let (...) (let* ... ...))))) (save-excursion 
(save-restriction (widen) (goto-char (or --mepom (point))) (if 
(derived-mode-p 'org-mode) nil (display-warning '... (format-message 
\\\"`org-element-at-point' cannot be used in non-Org b...\\\" ... 
major-mode))) (if (and cached-only (memq this-command 
org-element--cache-non-modifying-commands)) (progn (setq cached-only 
nil))) (let (element) (if (org-element--cache-active-p) (progn ...)) 
(setq element (if cached-only ... ...)) (if (and ... element ...) (progn 
...)) (if (eq ... ...) nil (if ... nil ...))))))))\n 
org-element-at-point(#<marker at 74688 in academics.org>)\n 
(save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) 
(let* ((start (and from-pos (progn (goto-char from-pos) 
(org-element-begin (progn ... ...))))) (prev after-element) (node 
(save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil 
...))) (if (memq granularity '...) (org-element--headline-cache-root) 
(org-element--cache-root)))) data (stack (list nil)) (leftp t) result 
(last-match t) continue-flag (next-element-re (let* ((pcase-0 #'...)) 
(cond ((eq granularity ...) (funcall pcase-0)) ((equal ... 
restrict-elements) (funcall pcase-0)) ((eq granularity ...) (let nil 
...)) (t 'nil)))) (next-re (if (and next-re (string= next-re (or ... 
next-element-re))) nil next-re)) (fail-re (if (and fail-re (string= 
fail-re (or ... next-element-re))) nil fail-re)) (restrict-elements (or 
restrict-elements (cond ((eq granularity ...) (let nil ...)) ((eq 
granularity ...) (let nil ...)) ((eq granularity ...) (let nil 
org-element-greater-elements)) (t 'nil)))) (time (float-time)) 
(predicate-time 0) (pre-process-time 0) (re-search-time 0) 
(count-predicate-calls-match 0) (count-predicate-calls-fail 0) 
cache-size before-time modified-tic) (goto-char (or start (point-min))) 
(let ((saved-match-data (match-data))) (unwind-protect (progn (if (or 
(not next-element-re) (if org-element--cache-map-statistics ... ...)) 
(if (or ... ...) nil (if ... ... ...) (if ... ...) (if ... ...)) (progn 
(setq continue-flag t) (setq node nil)))) (set-match-data 
saved-match-data t))) (if (and start (>= start to-pos)) nil (while node 
(setq data (progn (progn (aref node 2)))) (if (and leftp (progn (progn 
...)) (or (not prev) (not ...)) (or (not start) (not ...))) (progn (setq 
stack (cons node stack)) (setq node (progn ...))) (if (or (and start 
...) (and prev ...)) nil (if (or ... ...) (progn ... ... ... ... ... 
...) (if ... ...) (if node ...))) (if continue-flag (setq continue-flag 
nil) (setq node (if ... ... ...)))))) (if (and 
org-element--cache-map-statistics (or (not 
org-element--cache-map-statistics-threshold) (> (- (float-time) time) 
org-element--cache-map-statistics-threshold))) (progn (message 
\\\"Mapped over elements in %S. %d/%d predicate matche...\\\" 
(current-buffer) count-predicate-calls-match (+ 
count-predicate-calls-match count-predicate-calls-fail) (- (float-time) 
time) pre-process-time predicate-time re-search-time granularity 
restrict-elements next-re fail-re from-pos to-pos limit-count 
after-element))) (nreverse result)))\n (save-excursion (save-restriction 
(if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and 
from-pos (progn (goto-char from-pos) (org-element-begin ...)))) (prev 
after-element) (node (save-current-buffer (set-buffer (or ... ...)) (if 
(memq granularity ...) (org-element--headline-cache-root) 
(org-element--cache-root)))) data (stack (list nil)) (leftp t) result 
(last-match t) continue-flag (next-element-re (let* ((pcase-0 ...)) 
(cond (... ...) (... ...) (... ...) (t ...)))) (next-re (if (and next-re 
(string= next-re ...)) nil next-re)) (fail-re (if (and fail-re (string= 
fail-re ...)) nil fail-re)) (restrict-elements (or restrict-elements 
(cond (... ...) (... ...) (... ...) (t ...)))) (time (float-time)) 
(predicate-time 0) (pre-process-time 0) (re-search-time 0) 
(count-predicate-calls-match 0) (count-predicate-calls-fail 0) 
cache-size before-time modified-tic) (goto-char (or start (point-min))) 
(let ((saved-match-data (match-data))) (unwind-protect (progn (if (or 
... ...) (if ... nil ... ... ...) (progn ... ...))) (set-match-data 
saved-match-data t))) (if (and start (>= start to-pos)) nil (while node 
(setq data (progn (progn ...))) (if (and leftp (progn ...) (or ... ...) 
(or ... ...)) (progn (setq stack ...) (setq node ...)) (if (or ... ...) 
nil (if ... ... ... ...)) (if continue-flag (setq continue-flag nil) 
(setq node ...))))) (if (and org-element--cache-map-statistics (or (not 
org-element--cache-map-statistics-threshold) (> (- ... time) 
org-element--cache-map-statistics-threshold))) (progn (message 
\\\"Mapped over elements in %S. %d/%d predicate matche...\\\" 
(current-buffer) count-predicate-calls-match (+ 
count-predicate-calls-match count-predicate-calls-fail) (- (float-time) 
time) pre-process-time predicate-time re-search-time granularity 
restrict-elements next-re fail-re from-pos to-pos limit-count 
after-element))) (nreverse result))))\n (let ((gc-cons-threshold 
1073741824) tmpnext-start tmpparent tmpelement) (save-excursion 
(save-restriction (if narrow nil (widen)) (org-element-at-point to-pos) 
(let* ((start (and from-pos (progn ... ...))) (prev after-element) (node 
(save-current-buffer (set-buffer ...) (if ... ... ...))) data (stack 
(list nil)) (leftp t) result (last-match t) continue-flag 
(next-element-re (let* (...) (cond ... ... ... ...))) (next-re (if (and 
next-re ...) nil next-re)) (fail-re (if (and fail-re ...) nil fail-re)) 
(restrict-elements (or restrict-elements (cond ... ... ... ...))) (time 
(float-time)) (predicate-time 0) (pre-process-time 0) (re-search-time 0) 
(count-predicate-calls-match 0) (count-predicate-calls-fail 0) 
cache-size before-time modified-tic) (goto-char (or start (point-min))) 
(let ((saved-match-data (match-data))) (unwind-protect (progn (if ... 
... ...)) (set-match-data saved-match-data t))) (if (and start (>= start 
to-pos)) nil (while node (setq data (progn ...)) (if (and leftp ... ... 
...) (progn ... ...) (if ... nil ...) (if continue-flag ... ...)))) (if 
(and org-element--cache-map-statistics (or (not 
org-element--cache-map-statistics-threshold) (> ... 
org-element--cache-map-statistics-threshold))) (progn (message 
\\\"Mapped over elements in %S. %d/%d predicate matche...\\\" 
(current-buffer) count-predicate-calls-match (+ 
count-predicate-calls-match count-predicate-calls-fail) (- ... time) 
pre-process-time predicate-time re-search-time granularity 
restrict-elements next-re fail-re from-pos to-pos limit-count 
after-element))) (nreverse result)))))\n (progn (if 
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\")) 
(if (memq granularity '(headline headline+inlinetask greater-element 
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity)) 
(if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk 
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824) 
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction 
(if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start (and 
from-pos ...)) (prev after-element) (node (save-current-buffer ... ...)) 
data (stack (list nil)) (leftp t) result (last-match t) continue-flag 
(next-element-re (let* ... ...)) (next-re (if ... nil next-re)) (fail-re 
(if ... nil fail-re)) (restrict-elements (or restrict-elements ...)) 
(time (float-time)) (predicate-time 0) (pre-process-time 0) 
(re-search-time 0) (count-predicate-calls-match 0) 
(count-predicate-calls-fail 0) cache-size before-time modified-tic) 
(goto-char (or start (point-min))) (let ((saved-match-data ...)) 
(unwind-protect (progn ...) (set-match-data saved-match-data t))) (if 
(and start (>= start to-pos)) nil (while node (setq data ...) (if ... 
... ... ...))) (if (and org-element--cache-map-statistics (or ... ...)) 
(progn (message \\\"Mapped over elements in %S. %d/%d predicate 
matche...\\\" ... count-predicate-calls-match ... ... pre-process-time 
predicate-time re-search-time granularity restrict-elements next-re 
fail-re from-pos to-pos limit-count after-element))) (nreverse 
result))))))\n (if (org-element--cache-active-p) (progn (if 
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\")) 
(if (memq granularity '(headline headline+inlinetask greater-element 
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity)) 
(if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk 
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824) 
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction 
(if narrow nil (widen)) (org-element-at-point to-pos) (let* ((start ...) 
(prev after-element) (node ...) data (stack ...) (leftp t) result 
(last-match t) continue-flag (next-element-re ...) (next-re ...) 
(fail-re ...) (restrict-elements ...) (time ...) (predicate-time 0) 
(pre-process-time 0) (re-search-time 0) (count-predicate-calls-match 0) 
(count-predicate-calls-fail 0) cache-size before-time modified-tic) 
(goto-char (or start ...)) (let (...) (unwind-protect ... ...)) (if (and 
start ...) nil (while node ... ...)) (if (and 
org-element--cache-map-statistics ...) (progn ...)) (nreverse 
result)))))) (let ((--buffer (current-buffer)) (--old-state 
(save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil 
...))) (mapcar #'symbol-value org-element--cache-variables))) 
(org-element-use-cache t)) (unwind-protect (progn 
(org-element-cache-reset) (if (org-element--cache-active-p) nil (error 
\\\"Cache must be active\\\")) (if (memq granularity '(headline 
headline+inlinetask greater-element element)) nil (error \\\"Unsupported 
granularity: %S\\\" granularity)) (if (markerp to-pos) nil (let ((mk 
...)) (set-marker mk to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 
1073741824) tmpnext-start tmpparent tmpelement) (save-excursion 
(save-restriction (if narrow nil ...) (org-element-at-point to-pos) 
(let* ... ... ... ... ... ...))))) (cl-mapc #'(lambda (var values) 
(save-current-buffer (set-buffer ...) (set var values))) 
org-element--cache-variables --old-state))))\n (progn (let ((--cl-keys-- 
--cl-rest--)) (while --cl-keys-- (cond ((memq (car --cl-keys--) 
'(:granularity :restrict-elements :next-re :fail-re :from-pos :to-pos 
:after-element :limit-count :narrow :allow-other-keys)) (if (cdr 
--cl-keys--) nil (error \\\"Missing argument for %s\\\" (car 
--cl-keys--))) (setq --cl-keys-- (cdr (cdr --cl-keys--)))) ((car (cdr 
(memq ... --cl-rest--))) (setq --cl-keys-- nil)) (t (error \\\"Keyword 
argument %s not one of (:granularity :rest...\\\" (car --cl-keys--)))))) 
(if (org-element--cache-active-p) (progn (if 
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\")) 
(if (memq granularity '(headline headline+inlinetask greater-element 
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity)) 
(if (markerp to-pos) nil (let ((mk (make-marker))) (set-marker mk 
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824) 
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction 
(if narrow nil (widen)) (org-element-at-point to-pos) (let* (... ... ... 
data ... ... result ... continue-flag ... ... ... ... ... ... ... ... 
... ... cache-size before-time modified-tic) (goto-char ...) (let ... 
...) (if ... nil ...) (if ... ...) (nreverse result)))))) (let 
((--buffer (current-buffer)) (--old-state (save-current-buffer 
(set-buffer (or ... ...)) (mapcar #'symbol-value 
org-element--cache-variables))) (org-element-use-cache t)) 
(unwind-protect (progn (org-element-cache-reset) (if 
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\")) 
(if (memq granularity '...) nil (error \\\"Unsupported granularity: 
%S\\\" granularity)) (if (markerp to-pos) nil (let (...) (set-marker mk 
to-pos) (setq to-pos mk))) (let ((gc-cons-threshold 1073741824) 
tmpnext-start tmpparent tmpelement) (save-excursion (save-restriction 
... ... ...)))) (cl-mapc #'(lambda (var values) (save-current-buffer ... 
...)) org-element--cache-variables --old-state)))))\n (let* 
((granularity (car (cdr (or (plist-member --cl-rest-- ':granularity) 
'(nil headline+inlinetask))))) (restrict-elements (car (cdr 
(plist-member --cl-rest-- ':restrict-elements)))) (next-re (car (cdr 
(plist-member --cl-rest-- ':next-re)))) (fail-re (car (cdr (plist-member 
--cl-rest-- ':fail-re)))) (from-pos (car (cdr (plist-member --cl-rest-- 
':from-pos)))) (to-pos (car (cdr (or (plist-member --cl-rest-- ':to-pos) 
(list nil (point-max-marker)))))) (after-element (car (cdr (plist-member 
--cl-rest-- ':after-element)))) (limit-count (car (cdr (plist-member 
--cl-rest-- ':limit-count)))) (narrow (car (cdr (plist-member 
--cl-rest-- ':narrow))))) (progn (let ((--cl-keys-- --cl-rest--)) (while 
--cl-keys-- (cond ((memq (car --cl-keys--) '...) (if (cdr --cl-keys--) 
nil (error \\\"Missing argument for %s\\\" ...)) (setq --cl-keys-- (cdr 
...))) ((car (cdr ...)) (setq --cl-keys-- nil)) (t (error \\\"Keyword 
argument %s not one of (:granularity :rest...\\\" (car --cl-keys--)))))) 
(if (org-element--cache-active-p) (progn (if 
(org-element--cache-active-p) nil (error \\\"Cache must be active\\\")) 
(if (memq granularity '(headline headline+inlinetask greater-element 
element)) nil (error \\\"Unsupported granularity: %S\\\" granularity)) 
(if (markerp to-pos) nil (let ((mk ...)) (set-marker mk to-pos) (setq 
to-pos mk))) (let ((gc-cons-threshold 1073741824) tmpnext-start 
tmpparent tmpelement) (save-excursion (save-restriction (if narrow nil 
...) (org-element-at-point to-pos) (let* ... ... ... ... ... ...))))) 
(let ((--buffer (current-buffer)) (--old-state (save-current-buffer 
(set-buffer ...) (mapcar ... org-element--cache-variables))) 
(org-element-use-cache t)) (unwind-protect (progn 
(org-element-cache-reset) (if (org-element--cache-active-p) nil (error 
\\\"Cache must be active\\\")) (if (memq granularity ...) nil (error 
\\\"Unsupported granularity: %S\\\" granularity)) (if (markerp to-pos) 
nil (let ... ... ...)) (let (... tmpnext-start tmpparent tmpelement) 
(save-excursion ...))) (cl-mapc #'(lambda ... ...) 
org-element--cache-variables --old-state))))))\n 
org-element-cache-map((closure ((deadline-items) (current . 739166) 
(today?) (today . 739170) (regexp . \\\"\\\\\\\\<DEADLINE: 
*<\\\\\\\\([^>]+\\\\\\\\)>\\\") (props mouse-face highlight 
org-not-done-regexp \\\"\\\\\\\\(TODO\\\\\\\\)\\\" org-todo-regexp 
\\\"\\\\\\\\(CANCELED\\\\\\\\|DONE\\\\\\\\|TODO\\\\\\\\|WAITING\\\\\\\\)\\\" 
org-complex-heading-regexp \\\"^\\\\\\\\(\\\\\\\\*+\\\\\\\\)\\\\\\\\(?: 
+\\\\\\\\(CANCELED\\\\\\\\|DONE\\\\\\\\|TODO\\\\\\\\|WAITING\\\\\\\\)\\\\\\\\)?...\\\" 
help-echo \\\"mouse-2 or RET jump to org file ~/org/academics.or...\\\") 
(with-hour)) (el) (if (and (org-element--property :deadline el nil nil) 
(memq (org-element--property :type (org-element--property :deadline el 
nil nil) nil nil) '(diary active active-range)) (or (not with-hour) 
(org-element--property :hour-start (org-element--property :deadline el 
nil nil) nil nil) (org-element--property :hour-end 
(org-element--property :deadline el nil nil) nil nil))) (progn 
(goto-char (org-element-contents-begin el)) (catch :skip 
(org-agenda-skip el) (let* ((s ...) (pos ...) (todo-state ...) (done? 
...) (sexp? ...) (deadline ...) (repeat ...) (diff ...) 
(max-warning-days ...) (warning-days ...)) (cond (... nil) (... nil) 
(... ...) (... ...) (t ...)) (if (and done? ...) (progn ...)) 
(save-excursion (goto-char ...) (let* ... ... ...))))))) :next-re 
\\\"\\\\\\\\<DEADLINE: *<\\\\\\\\([^>]+\\\\\\\\)>\\\" :fail-re 
\\\"\\\\\\\\<DEADLINE: *<\\\\\\\\([^>]+\\\\\\\\)>\\\" :narrow t)\n (let* 
((props (list 'mouse-face 'highlight 'org-not-done-regexp 
org-not-done-regexp 'org-todo-regexp org-todo-regexp 
'org-complex-heading-regexp org-complex-heading-regexp 'help-echo 
(format \\\"mouse-2 or RET jump to org file %s\\\" (abbreviate-file-name 
buffer-file-name)))) (regexp (if with-hour org-deadline-time-hour-regexp 
org-deadline-time-regexp)) (today (org-today)) (today? 
(org-agenda-today-p date)) (current (calendar-absolute-from-gregorian 
date)) deadline-items) (org-element-cache-map #'(lambda (el) (if (and 
(org-element--property :deadline el nil nil) (memq 
(org-element--property :type ... nil nil) '...) (or (not with-hour) 
(org-element--property :hour-start ... nil nil) (org-element--property 
:hour-end ... nil nil))) (progn (goto-char (org-element-contents-begin 
el)) (catch :skip (org-agenda-skip el) (let* ... ... ... ...))))) 
:next-re regexp :fail-re regexp :narrow t) (nreverse deadline-items))\n 
org-agenda-get-deadlines()\n (setq deadlines 
(org-agenda-get-deadlines))\n (let nil (setq deadlines 
(org-agenda-get-deadlines)) (setq results (cons deadlines results)))\n 
(cond ((eq arg :todo) (if (org-agenda-today-p date) (let nil (setq 
results (cons (org-agenda-get-todos) results))))) ((eq arg :timestamp) 
(let nil (setq results (cons (org-agenda-get-blocks) results)) (setq 
results (cons (org-agenda-get-timestamps deadlines) results)))) ((eq arg 
:sexp) (let nil (setq results (cons (org-agenda-get-sexps) results)))) 
((eq arg :scheduled) (let nil (setq results (cons 
(org-agenda-get-scheduled deadlines) results)))) ((eq arg :scheduled*) 
(let nil (setq results (cons (org-agenda-get-scheduled deadlines t) 
results)))) ((eq arg :closed) (let nil (setq results (cons 
(org-agenda-get-progress) results)))) ((eq arg :deadline) (let nil (setq 
deadlines (org-agenda-get-deadlines)) (setq results (cons deadlines 
results)))) ((eq arg :deadline*) (let nil (setq deadlines 
(org-agenda-get-deadlines t)) (setq results (cons deadlines 
results)))))\n (let ((arg (car tail))) (cond ((eq arg :todo) (if 
(org-agenda-today-p date) (let nil (setq results (cons 
(org-agenda-get-todos) results))))) ((eq arg :timestamp) (let nil (setq 
results (cons (org-agenda-get-blocks) results)) (setq results (cons 
(org-agenda-get-timestamps deadlines) results)))) ((eq arg :sexp) (let 
nil (setq results (cons (org-agenda-get-sexps) results)))) ((eq arg 
:scheduled) (let nil (setq results (cons (org-agenda-get-scheduled 
deadlines) results)))) ((eq arg :scheduled*) (let nil (setq results 
(cons (org-agenda-get-scheduled deadlines t) results)))) ((eq arg 
:closed) (let nil (setq results (cons (org-agenda-get-progress) 
results)))) ((eq arg :deadline) (let nil (setq deadlines 
(org-agenda-get-deadlines)) (setq results (cons deadlines results)))) 
((eq arg :deadline*) (let nil (setq deadlines (org-agenda-get-deadlines 
t)) (setq results (cons deadlines results))))) (setq tail (cdr tail)))\n 
(while tail (let ((arg (car tail))) (cond ((eq arg :todo) (if 
(org-agenda-today-p date) (let nil (setq results (cons ... results))))) 
((eq arg :timestamp) (let nil (setq results (cons 
(org-agenda-get-blocks) results)) (setq results (cons 
(org-agenda-get-timestamps deadlines) results)))) ((eq arg :sexp) (let 
nil (setq results (cons (org-agenda-get-sexps) results)))) ((eq arg 
:scheduled) (let nil (setq results (cons (org-agenda-get-scheduled 
deadlines) results)))) ((eq arg :scheduled*) (let nil (setq results 
(cons (org-agenda-get-scheduled deadlines t) results)))) ((eq arg 
:closed) (let nil (setq results (cons (org-agenda-get-progress) 
results)))) ((eq arg :deadline) (let nil (setq deadlines 
(org-agenda-get-deadlines)) (setq results (cons deadlines results)))) 
((eq arg :deadline*) (let nil (setq deadlines (org-agenda-get-deadlines 
t)) (setq results (cons deadlines results))))) (setq tail (cdr 
tail))))\n (let ((tail args)) (while tail (let ((arg (car tail))) (cond 
((eq arg :todo) (if (org-agenda-today-p date) (let nil (setq results 
...)))) ((eq arg :timestamp) (let nil (setq results (cons ... results)) 
(setq results (cons ... results)))) ((eq arg :sexp) (let nil (setq 
results (cons ... results)))) ((eq arg :scheduled) (let nil (setq 
results (cons ... results)))) ((eq arg :scheduled*) (let nil (setq 
results (cons ... results)))) ((eq arg :closed) (let nil (setq results 
(cons ... results)))) ((eq arg :deadline) (let nil (setq deadlines 
(org-agenda-get-deadlines)) (setq results (cons deadlines results)))) 
((eq arg :deadline*) (let nil (setq deadlines (org-agenda-get-deadlines 
t)) (setq results (cons deadlines results))))) (setq tail (cdr tail)))) 
(apply #'nconc (nreverse results)))\n (let* ((date date)) (let ((tail 
args)) (while tail (let ((arg (car tail))) (cond ((eq arg :todo) (if 
(org-agenda-today-p date) (let nil ...))) ((eq arg :timestamp) (let nil 
(setq results ...) (setq results ...))) ((eq arg :sexp) (let nil (setq 
results ...))) ((eq arg :scheduled) (let nil (setq results ...))) ((eq 
arg :scheduled*) (let nil (setq results ...))) ((eq arg :closed) (let 
nil (setq results ...))) ((eq arg :deadline) (let nil (setq deadlines 
...) (setq results ...))) ((eq arg :deadline*) (let nil (setq deadlines 
...) (setq results ...)))) (setq tail (cdr tail)))) (apply #'nconc 
(nreverse results))))\n (progn (with-no-warnings (defvar date)) (let* 
((date date)) (let ((tail args)) (while tail (let ((arg (car tail))) 
(cond ((eq arg :todo) (if ... ...)) ((eq arg :timestamp) (let nil ... 
...)) ((eq arg :sexp) (let nil ...)) ((eq arg :scheduled) (let nil ...)) 
((eq arg :scheduled*) (let nil ...)) ((eq arg :closed) (let nil ...)) 
((eq arg :deadline) (let nil ... ...)) ((eq arg :deadline*) (let nil ... 
...))) (setq tail (cdr tail)))) (apply #'nconc (nreverse results)))))\n 
(let ((case-fold-search nil) results deadlines) (progn (with-no-warnings 
(defvar date)) (let* ((date date)) (let ((tail args)) (while tail (let 
((arg ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... 
...) (... ...) (... ...)) (setq tail (cdr tail)))) (apply #'nconc 
(nreverse results))))))\n (save-restriction (if (eq buffer 
org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args 
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq 
:scheduled* args)) (progn (setq args (delq :scheduled* args)))) (cond 
((memq :deadline args) (setq args (cons :deadline (delq :deadline (delq 
:deadline* args))))) ((memq :deadline* args) (setq args (cons :deadline* 
(delq :deadline* args))))) (let ((case-fold-search nil) results 
deadlines) (progn (with-no-warnings (defvar date)) (let* ((date date)) 
(let ((tail args)) (while tail (let (...) (cond ... ... ... ... ... ... 
... ...) (setq tail ...))) (apply #'nconc (nreverse results)))))))\n 
(save-excursion (save-restriction (if (eq buffer org-agenda-restrict) 
(narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) 
(widen)) (setq args (org-uniquify (or args org-agenda-entry-types))) (if 
(and (memq :scheduled args) (memq :scheduled* args)) (progn (setq args 
(delq :scheduled* args)))) (cond ((memq :deadline args) (setq args (cons 
:deadline (delq :deadline (delq :deadline* args))))) ((memq :deadline* 
args) (setq args (cons :deadline* (delq :deadline* args))))) (let 
((case-fold-search nil) results deadlines) (progn (with-no-warnings 
(defvar date)) (let* ((date date)) (let ((tail args)) (while tail (let 
... ... ...)) (apply #'nconc (nreverse results))))))))\n 
(save-current-buffer (set-buffer buffer) (if (derived-mode-p 'org-mode) 
nil (error \\\"Agenda file %s is not in Org mode\\\" file)) (setq 
org-agenda-buffer (or org-agenda-buffer buffer)) (setq 
org-agenda-current-date date) (save-excursion (save-restriction (if (eq 
buffer org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args 
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq 
:scheduled* args)) (progn (setq args (delq :scheduled* args)))) (cond 
((memq :deadline args) (setq args (cons :deadline (delq :deadline 
...)))) ((memq :deadline* args) (setq args (cons :deadline* (delq 
:deadline* args))))) (let ((case-fold-search nil) results deadlines) 
(progn (with-no-warnings (defvar date)) (let* ((date date)) (let (...) 
(while tail ...) (apply ... ...))))))))\n (if (not buffer) (list (format 
\\\"ORG-AGENDA-ERROR: No such org-file %s\\\" file)) 
(save-current-buffer (set-buffer buffer) (if (derived-mode-p 'org-mode) 
nil (error \\\"Agenda file %s is not in Org mode\\\" file)) (setq 
org-agenda-buffer (or org-agenda-buffer buffer)) (setq 
org-agenda-current-date date) (save-excursion (save-restriction (if (eq 
buffer org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args 
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq 
:scheduled* args)) (progn (setq args (delq :scheduled* args)))) (cond 
((memq :deadline args) (setq args (cons :deadline ...))) ((memq 
:deadline* args) (setq args (cons :deadline* ...)))) (let 
((case-fold-search nil) results deadlines) (progn (with-no-warnings 
(defvar date)) (let* (...) (let ... ... ...))))))))\n (let* 
((org-startup-folded nil) (org-startup-align-all-tables nil) (buffer (if 
(file-exists-p file) (org-get-agenda-file-buffer file) (error \\\"No 
such file %s\\\" file)))) (if (not buffer) (list (format 
\\\"ORG-AGENDA-ERROR: No such org-file %s\\\" file)) 
(save-current-buffer (set-buffer buffer) (if (derived-mode-p 'org-mode) 
nil (error \\\"Agenda file %s is not in Org mode\\\" file)) (setq 
org-agenda-buffer (or org-agenda-buffer buffer)) (setq 
org-agenda-current-date date) (save-excursion (save-restriction (if (eq 
buffer org-agenda-restrict) (narrow-to-region org-agenda-restrict-begin 
org-agenda-restrict-end) (widen)) (setq args (org-uniquify (or args 
org-agenda-entry-types))) (if (and (memq :scheduled args) (memq 
:scheduled* args)) (progn (setq args ...))) (cond ((memq :deadline args) 
(setq args ...)) ((memq :deadline* args) (setq args ...))) (let 
((case-fold-search nil) results deadlines) (progn (with-no-warnings ...) 
(let* ... ...))))))))\n 
org-agenda-get-day-entries(\\\"/Users/andrew/org/academics.org\\\" (10 7 
2024) :deadline :scheduled :timestamp :sexp)\n 
apply(org-agenda-get-day-entries \\\"/Users/andrew/org/academics.org\\\" 
(10 7 2024) (:deadline :scheduled :timestamp :sexp))\n (setq rtn (apply 
#'org-agenda-get-day-entries file date org-agenda-entry-types))\n (cond 
((memq org-agenda-show-log-scoped '(only clockcheck)) (setq rtn 
(org-agenda-get-day-entries file date :closed))) 
(org-agenda-show-log-scoped (setq rtn (apply 
#'org-agenda-get-day-entries file date (append '(:closed) 
org-agenda-entry-types)))) (t (setq rtn (apply 
#'org-agenda-get-day-entries file date org-agenda-entry-types))))\n (let 
((org-agenda-entry-types org-agenda-entry-types)) (if (member :deadline* 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:deadline org-agenda-entry-types)))) (if (member :scheduled* 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member 
:deadline org-agenda-entry-types) (progn (setq org-agenda-entry-types 
(delq :deadline org-agenda-entry-types)) (setq org-agenda-entry-types 
(cons :deadline* org-agenda-entry-types)))) (if (member :scheduled 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:scheduled org-agenda-entry-types)) (setq org-agenda-entry-types (cons 
:scheduled* org-agenda-entry-types)))))) (if 
org-agenda-include-deadlines nil (setq org-agenda-entry-types (delq 
:deadline* (delq :deadline org-agenda-entry-types)))) (cond ((memq 
org-agenda-show-log-scoped '(only clockcheck)) (setq rtn 
(org-agenda-get-day-entries file date :closed))) 
(org-agenda-show-log-scoped (setq rtn (apply 
#'org-agenda-get-day-entries file date (append '(:closed) 
org-agenda-entry-types)))) (t (setq rtn (apply 
#'org-agenda-get-day-entries file date org-agenda-entry-types)))))\n 
(catch 'nextfile (org-check-agenda-file file) (let 
((org-agenda-entry-types org-agenda-entry-types)) (if (member :deadline* 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:deadline org-agenda-entry-types)))) (if (member :scheduled* 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member 
:deadline org-agenda-entry-types) (progn (setq org-agenda-entry-types 
(delq :deadline org-agenda-entry-types)) (setq org-agenda-entry-types 
(cons :deadline* org-agenda-entry-types)))) (if (member :scheduled 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:scheduled org-agenda-entry-types)) (setq org-agenda-entry-types (cons 
:scheduled* org-agenda-entry-types)))))) (if 
org-agenda-include-deadlines nil (setq org-agenda-entry-types (delq 
:deadline* (delq :deadline org-agenda-entry-types)))) (cond ((memq 
org-agenda-show-log-scoped '(only clockcheck)) (setq rtn 
(org-agenda-get-day-entries file date :closed))) 
(org-agenda-show-log-scoped (setq rtn (apply 
#'org-agenda-get-day-entries file date (append '... 
org-agenda-entry-types)))) (t (setq rtn (apply 
#'org-agenda-get-day-entries file date org-agenda-entry-types))))) (setq 
rtnall (append rtnall rtn)))\n (while (setq file (car-safe (prog1 files 
(setq files (cdr files))))) (catch 'nextfile (org-check-agenda-file 
file) (let ((org-agenda-entry-types org-agenda-entry-types)) (if (member 
:deadline* org-agenda-entry-types) (progn (setq org-agenda-entry-types 
(delq :deadline org-agenda-entry-types)))) (if (member :scheduled* 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member 
:deadline org-agenda-entry-types) (progn (setq org-agenda-entry-types 
...) (setq org-agenda-entry-types ...))) (if (member :scheduled 
org-agenda-entry-types) (progn (setq org-agenda-entry-types ...) (setq 
org-agenda-entry-types ...))))) (if org-agenda-include-deadlines nil 
(setq org-agenda-entry-types (delq :deadline* (delq :deadline 
org-agenda-entry-types)))) (cond ((memq org-agenda-show-log-scoped 
'(only clockcheck)) (setq rtn (org-agenda-get-day-entries file date 
:closed))) (org-agenda-show-log-scoped (setq rtn (apply 
#'org-agenda-get-day-entries file date (append ... 
org-agenda-entry-types)))) (t (setq rtn (apply 
#'org-agenda-get-day-entries file date org-agenda-entry-types))))) (setq 
rtnall (append rtnall rtn))))\n (while (setq d (car-safe (prog1 
day-numbers (setq day-numbers (cdr day-numbers))))) (progn (setq date 
(calendar-gregorian-from-absolute d)) (setq s (point))) (if (or (setq 
todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos 
(point)) (if (and start-pos (not end-pos)) (progn (setq end-pos 
(point))))) (progn (setq files thefiles) (setq rtnall nil)) (while (setq 
file (car-safe (prog1 files (setq files (cdr files))))) (catch 'nextfile 
(org-check-agenda-file file) (let ((org-agenda-entry-types 
org-agenda-entry-types)) (if (member :deadline* org-agenda-entry-types) 
(progn (setq org-agenda-entry-types (delq :deadline 
org-agenda-entry-types)))) (if (member :scheduled* 
org-agenda-entry-types) (progn (setq org-agenda-entry-types (delq 
:scheduled org-agenda-entry-types)))) (if with-hour (progn (if (member 
:deadline org-agenda-entry-types) (progn ... ...)) (if (member 
:scheduled org-agenda-entry-types) (progn ... ...)))) (if 
org-agenda-include-deadlines nil (setq org-agenda-entry-types (delq 
:deadline* (delq :deadline org-agenda-entry-types)))) (cond ((memq 
org-agenda-show-log-scoped '...) (setq rtn (org-agenda-get-day-entries 
file date :closed))) (org-agenda-show-log-scoped (setq rtn (apply ... 
file date ...))) (t (setq rtn (apply ... file date 
org-agenda-entry-types))))) (setq rtnall (append rtnall rtn)))) (if 
org-agenda-include-diary (progn (let 
((org-agenda-search-headline-for-time t)) (require 'diary-lib) (setq rtn 
(org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn))))) 
(if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ 
day-cnt)) (insert (if (stringp org-agenda-format-date) 
(format-time-string org-agenda-format-date (org-time-from-absolute 
date)) (funcall org-agenda-format-date date)) \\\"\\\\n\\\") 
(put-text-property s (1- (point)) 'face (org-agenda-get-day-face date)) 
(put-text-property s (1- (point)) 'org-date-line t) (put-text-property s 
(1- (point)) 'org-agenda-date-header t) (put-text-property s (1- 
(point)) 'org-day-cnt day-cnt) (if todayp (progn (put-text-property s 
(1- (point)) 'org-today t))) (setq rtnall 
(org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if rtnall (progn 
(insert (org-agenda-finalize-entries rtnall 'agenda) \\\"\\\\n\\\"))) 
(put-text-property s (1- (point)) 'day d) (put-text-property s (1- 
(point)) 'org-day-cnt day-cnt))))\n (let* ((span 
(org-agenda-ndays-to-span (or span org-agenda-span))) (today 
(org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays 
span sd)) (org-agenda-start-on-weekday (and (or (eq ndays 7) (eq ndays 
14)) org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil 
'ifmode)) (files thefiles) (start (if (or (null 
org-agenda-start-on-weekday) (< ndays 7)) sd (let* (... ... ...) (- sd 
...)))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not 
debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s rtn 
rtnall file date d start-pos end-pos todayp clocktable-start 
clocktable-end) (setq org-agenda-redo-command (list 'org-agenda-list 
(list 'quote arg) start-day (list 'quote span) with-hour)) (let 
((upper-bound (1- ndays)) (counter 0)) (while (< counter upper-bound) 
(let ((_ counter)) (setq day-numbers (cons ... day-numbers))) (setq 
counter (1+ counter)))) (setq day-numbers (nreverse day-numbers)) (progn 
(setq clocktable-start (car day-numbers)) (setq clocktable-end (1+ (or 
(org-last day-numbers) 0)))) (set (make-local-variable 
'org-starting-day) (car day-numbers)) (set (make-local-variable 
'org-arg-loc) arg) (set (make-local-variable 'org-agenda-current-span) 
(org-agenda-ndays-to-span span)) (if org-agenda-compact-blocks nil (let* 
((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1 
(org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s 
(point)) (cond ((not org-agenda-overriding-header) (insert ...)) ((equal 
org-agenda-overriding-header \\\"\\\") nil) ((stringp 
org-agenda-overriding-header) (insert ... \\\"\\\\n\\\")) ((functionp 
org-agenda-overriding-header) (insert ...)) (t (user-error \\\"Invalid 
value for `org-agenda-overridi...\\\" org-agenda-overriding-header)))) 
(if (> (point) s) (progn (add-text-properties s (1- ...) (list ... ... 
... t)) (org-agenda-mark-header-line s)))) (while (setq d (car-safe 
(prog1 day-numbers (setq day-numbers ...)))) (progn (setq date 
(calendar-gregorian-from-absolute d)) (setq s (point))) (if (or (setq 
todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos 
(point)) (if (and start-pos (not end-pos)) (progn (setq end-pos ...)))) 
(progn (setq files thefiles) (setq rtnall nil)) (while (setq file 
(car-safe (prog1 files ...))) (catch 'nextfile (org-check-agenda-file 
file) (let (...) (if ... ...) (if ... ...) (if with-hour ...) (if 
org-agenda-include-deadlines nil ...) (cond ... ... ...)) (setq rtnall 
(append rtnall rtn)))) (if org-agenda-include-diary (progn (let (...) 
(require ...) (setq rtn ...) (setq rtnall ...)))) (if (or rtnall 
org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert 
(if ... ... ...) \\\"\\\\n\\\") (put-text-property s (1- ...) 'face 
(org-agenda-get-day-face date)) (put-text-property s (1- ...) 
'org-date-line t) (put-text-property s (1- ...) 'org-agenda-date-header 
t) (put-text-property s (1- ...) 'org-day-cnt day-cnt) (if todayp (progn 
...)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) 
(if rtnall (progn ...)) (put-text-property s (1- ...) 'day d) 
(put-text-property s (1- ...) 'org-day-cnt day-cnt)))) (if (and 
org-agenda-clockreport-mode clocktable-start) (progn (let 
((org-agenda-files ...) (p ...) tbl) (setq p (org-plist-delete p 
:block)) (setq p (plist-put p :tstart clocktable-start)) (setq p 
(plist-put p :tend clocktable-end)) (setq p (plist-put p :scope ...)) 
(setq tbl (apply ... p)) (if org-agenda-clock-report-header (progn ... 
...)) (insert tbl)))) (goto-char (point-min)) (or org-agenda-multi 
(org-agenda-fit-window-to-buffer)) (if (or (not (get-buffer-window 
org-agenda-buffer-name)) (and (pos-visible-in-window-p (point-min)) 
(pos-visible-in-window-p (point-max)))) nil (goto-char (1- (point-max))) 
(recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) 
(progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or 
start-pos 1)) (add-text-properties (point-min) (point-max) (list 
'org-agenda-type 'agenda 'org-last-args (list arg start-day span) 
'org-redo-cmd org-agenda-redo-command 'org-series-cmd org-cmd)) (if (eq 
org-agenda-show-log-scoped 'clockcheck) (progn 
(org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq 
buffer-read-only t) (message \\\"\\\"))\n (catch 'exit (setq 
org-agenda-buffer-name (org-agenda--get-buffer-name (and 
org-agenda-sticky (cond ((and org-keys ...) (format \\\"*Org 
Agenda(%s:%s)*\\\" org-keys org-match)) (org-keys (format \\\"*Org 
Agenda(%s)*\\\" org-keys)) (t \\\"*Org Agenda(a)*\\\"))))) 
(org-agenda-prepare \\\"Day/Week\\\") (setq start-day (or start-day 
org-agenda-start-day)) (if (stringp start-day) (progn (setq start-day 
(time-to-days (org-read-date nil t start-day))))) 
(org-compile-prefix-format 'agenda) (org-set-sorting-strategy 'agenda) 
(let* ((span (org-agenda-ndays-to-span (or span org-agenda-span))) 
(today (org-today)) (sd (or start-day today)) (ndays 
(org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday (and 
(or (eq ndays 7) (eq ndays 14)) org-agenda-start-on-weekday)) (thefiles 
(org-agenda-files nil 'ifmode)) (files thefiles) (start (if (or (null 
org-agenda-start-on-weekday) (< ndays 7)) sd (let* (... ... ...) (- sd 
...)))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not 
debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s rtn 
rtnall file date d start-pos end-pos todayp clocktable-start 
clocktable-end) (setq org-agenda-redo-command (list 'org-agenda-list 
(list 'quote arg) start-day (list 'quote span) with-hour)) (let 
((upper-bound (1- ndays)) (counter 0)) (while (< counter upper-bound) 
(let ((_ counter)) (setq day-numbers (cons ... day-numbers))) (setq 
counter (1+ counter)))) (setq day-numbers (nreverse day-numbers)) (progn 
(setq clocktable-start (car day-numbers)) (setq clocktable-end (1+ (or 
(org-last day-numbers) 0)))) (set (make-local-variable 
'org-starting-day) (car day-numbers)) (set (make-local-variable 
'org-arg-loc) arg) (set (make-local-variable 'org-agenda-current-span) 
(org-agenda-ndays-to-span span)) (if org-agenda-compact-blocks nil (let* 
((d1 (car day-numbers)) (d2 (org-last day-numbers)) (w1 
(org-days-to-iso-week d1)) (w2 (org-days-to-iso-week d2))) (setq s 
(point)) (cond ((not org-agenda-overriding-header) (insert ...)) ((equal 
org-agenda-overriding-header \\\"\\\") nil) ((stringp 
org-agenda-overriding-header) (insert ... \\\"\\\\n\\\")) ((functionp 
org-agenda-overriding-header) (insert ...)) (t (user-error \\\"Invalid 
value for `org-agenda-overriding-hea...\\\" 
org-agenda-overriding-header)))) (if (> (point) s) (progn 
(add-text-properties s (1- ...) (list ... ... ... t)) 
(org-agenda-mark-header-line s)))) (while (setq d (car-safe (prog1 
day-numbers (setq day-numbers ...)))) (progn (setq date 
(calendar-gregorian-from-absolute d)) (setq s (point))) (if (or (setq 
todayp (= d today)) (and (not start-pos) (= d sd))) (setq start-pos 
(point)) (if (and start-pos (not end-pos)) (progn (setq end-pos ...)))) 
(progn (setq files thefiles) (setq rtnall nil)) (while (setq file 
(car-safe (prog1 files ...))) (catch 'nextfile (org-check-agenda-file 
file) (let (...) (if ... ...) (if ... ...) (if with-hour ...) (if 
org-agenda-include-deadlines nil ...) (cond ... ... ...)) (setq rtnall 
(append rtnall rtn)))) (if org-agenda-include-diary (progn (let (...) 
(require ...) (setq rtn ...) (setq rtnall ...)))) (if (or rtnall 
org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) (insert 
(if ... ... ...) \\\"\\\\n\\\") (put-text-property s (1- ...) 'face 
(org-agenda-get-day-face date)) (put-text-property s (1- ...) 
'org-date-line t) (put-text-property s (1- ...) 'org-agenda-date-header 
t) (put-text-property s (1- ...) 'org-day-cnt day-cnt) (if todayp (progn 
...)) (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) 
(if rtnall (progn ...)) (put-text-property s (1- ...) 'day d) 
(put-text-property s (1- ...) 'org-day-cnt day-cnt)))) (if (and 
org-agenda-clockreport-mode clocktable-start) (progn (let 
((org-agenda-files ...) (p ...) tbl) (setq p (org-plist-delete p 
:block)) (setq p (plist-put p :tstart clocktable-start)) (setq p 
(plist-put p :tend clocktable-end)) (setq p (plist-put p :scope ...)) 
(setq tbl (apply ... p)) (if org-agenda-clock-report-header (progn ... 
...)) (insert tbl)))) (goto-char (point-min)) (or org-agenda-multi 
(org-agenda-fit-window-to-buffer)) (if (or (not (get-buffer-window 
org-agenda-buffer-name)) (and (pos-visible-in-window-p (point-min)) 
(pos-visible-in-window-p (point-max)))) nil (goto-char (1- (point-max))) 
(recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) 
(progn (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or 
start-pos 1)) (add-text-properties (point-min) (point-max) (list 
'org-agenda-type 'agenda 'org-last-args (list arg start-day span) 
'org-redo-cmd org-agenda-redo-command 'org-series-cmd org-cmd)) (if (eq 
org-agenda-show-log-scoped 'clockcheck) (progn 
(org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq 
buffer-read-only t) (message \\\"\\\")))\n org-agenda-list(nil)\n 
funcall-interactively(org-agenda-list nil)\n 
call-interactively(org-agenda-list)\n (cond ((setq entry (assoc org-keys 
org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) (functionp 
(nth 2 entry))) (progn (progn (setq type (nth 2 entry)) (setq org-match 
(eval (nth 3 entry) t)) (setq lprops (nth 4 entry))) (if 
org-agenda-sticky (progn (setq org-agenda-buffer-name (or ... ...)))) 
(progn (let* ((syms ...) (vals ...) (body ...) (binds nil)) (while syms 
(setq binds ...)) (eval (list ... ... ...)))) (let ((inhibit-read-only 
t)) (add-text-properties (point-min) (point-max) (list 'org-lprops 
lprops)))) (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 
'org-agenda-custom-commands)) ((equal org-keys \\\"a\\\") 
(call-interactively 'org-agenda-list)) ((equal org-keys \\\"s\\\") 
(call-interactively 'org-search-view)) ((equal org-keys \\\"S\\\") 
(org-call-with-arg 'org-search-view (or arg '(4)))) ((equal org-keys 
\\\"t\\\") (call-interactively 'org-todo-list)) ((equal org-keys 
\\\"T\\\") (org-call-with-arg 'org-todo-list (or arg '(4)))) ((equal 
org-keys \\\"m\\\") (call-interactively 'org-tags-view)) ((equal 
org-keys \\\"M\\\") (org-call-with-arg 'org-tags-view (or arg '(4)))) 
((equal org-keys \\\"e\\\") (call-interactively 
'org-store-agenda-views)) ((equal org-keys \\\"?\\\") (org-tags-view nil 
\\\"+FLAGGED\\\") (add-hook 'post-command-hook #'(lambda nil (if 
(current-message) nil (let* (... ...) (if note ...)))) t t)) ((equal 
org-keys \\\"#\\\") (call-interactively 
'org-agenda-list-stuck-projects)) ((equal org-keys \\\"/\\\") 
(call-interactively 'org-occur-in-agenda-files)) ((equal org-keys 
\\\"!\\\") (customize-variable 'org-stuck-projects)) (t (user-error 
\\\"Invalid agenda key\\\")))\n (let* ((org-keys keys) 
(prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal 
(buffer-name) org-agenda-buffer-name) 'current-window 
org-agenda-window-setup)) (org-agenda-custom-commands-orig 
org-agenda-custom-commands) (org-agenda-custom-commands (delq nil 
(mapcar #'(lambda (x) (cond ... ... ... ...)) 
org-agenda-custom-commands))) (org-agenda-custom-commands 
(org-contextualize-keys org-agenda-custom-commands 
org-agenda-custom-commands-contexts)) (bfn (buffer-file-name 
(buffer-base-buffer))) entry type org-match lprops ans) (if 
org-agenda-overriding-restriction nil (if 
org-agenda-keep-restricted-file-list nil (put 'org-agenda-files 
'org-restrict nil)) (setq org-agenda-restrict nil) (move-marker 
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end 
nil)) (if org-keys nil (progn (setq ans 
(org-agenda-get-restriction-and-command prefix-descriptions)) (setq 
org-keys (car ans)) (setq restriction (cdr ans)))) (if org-agenda-sticky 
(progn (setq org-agenda-buffer-name (format \\\"*Org Agenda(%s)*\\\" 
org-keys)))) (if (and (not org-agenda-overriding-restriction) 
restriction) (progn (put 'org-agenda-files 'org-restrict (list bfn)) 
(cond ((eq restriction '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 '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 ...)))) ((eq restriction 'buffer) (if (not (buffer-narrowed-p)) 
(setq org-agenda-restrict t) (setq org-agenda-restrict (current-buffer)) 
(move-marker org-agenda-restrict-begin (point-min)) (move-marker 
org-agenda-restrict-end (point-max))))))) (cond ((setq entry (assoc 
org-keys org-agenda-custom-commands)) (if (or (symbolp (nth 2 entry)) 
(functionp (nth 2 entry))) (progn (progn (setq type (nth 2 entry)) (setq 
org-match (eval ... t)) (setq lprops (nth 4 entry))) (if 
org-agenda-sticky (progn (setq org-agenda-buffer-name ...))) (progn 
(let* (... ... ... ...) (while syms ...) (eval ...))) (let 
((inhibit-read-only t)) (add-text-properties (point-min) (point-max) 
(list ... lprops)))) (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 
'org-agenda-custom-commands)) ((equal org-keys \\\"a\\\") 
(call-interactively 'org-agenda-list)) ((equal org-keys \\\"s\\\") 
(call-interactively 'org-search-view)) ((equal org-keys \\\"S\\\") 
(org-call-with-arg 'org-search-view (or arg '(4)))) ((equal org-keys 
\\\"t\\\") (call-interactively 'org-todo-list)) ((equal org-keys 
\\\"T\\\") (org-call-with-arg 'org-todo-list (or arg '(4)))) ((equal 
org-keys \\\"m\\\") (call-interactively 'org-tags-view)) ((equal 
org-keys \\\"M\\\") (org-call-with-arg 'org-tags-view (or arg '(4)))) 
((equal org-keys \\\"e\\\") (call-interactively 
'org-store-agenda-views)) ((equal org-keys \\\"?\\\") (org-tags-view nil 
\\\"+FLAGGED\\\") (add-hook 'post-command-hook #'(lambda nil (if 
(current-message) nil (let* ... ...))) t t)) ((equal org-keys \\\"#\\\") 
(call-interactively 'org-agenda-list-stuck-projects)) ((equal org-keys 
\\\"/\\\") (call-interactively 'org-occur-in-agenda-files)) ((equal 
org-keys \\\"!\\\") (customize-variable 'org-stuck-projects)) (t 
(user-error \\\"Invalid agenda key\\\"))))\n (catch 'exit (let* 
((org-keys keys) (prefix-descriptions nil) (org-agenda-buffer-name 
org-agenda-buffer-name) (org-agenda-window-setup (if (equal 
(buffer-name) org-agenda-buffer-name) 'current-window 
org-agenda-window-setup)) (org-agenda-custom-commands-orig 
org-agenda-custom-commands) (org-agenda-custom-commands (delq nil 
(mapcar #'(lambda ... ...) org-agenda-custom-commands))) 
(org-agenda-custom-commands (org-contextualize-keys 
org-agenda-custom-commands org-agenda-custom-commands-contexts)) (bfn 
(buffer-file-name (buffer-base-buffer))) entry type org-match lprops 
ans) (if org-agenda-overriding-restriction nil (if 
org-agenda-keep-restricted-file-list nil (put 'org-agenda-files 
'org-restrict nil)) (setq org-agenda-restrict nil) (move-marker 
org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end 
nil)) (if org-keys nil (progn (setq ans 
(org-agenda-get-restriction-and-command prefix-descriptions)) (setq 
org-keys (car ans)) (setq restriction (cdr ans)))) (if org-agenda-sticky 
(progn (setq org-agenda-buffer-name (format \\\"*Org Agenda(%s)*\\\" 
org-keys)))) (if (and (not org-agenda-overriding-restriction) 
restriction) (progn (put 'org-agenda-files 'org-restrict (list bfn)) 
(cond ((eq restriction '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 'subtree) (save-excursion (setq org-agenda-restrict 
...) (org-back-to-heading t) (move-marker org-agenda-restrict-begin ...) 
(move-marker org-agenda-restrict-end ...))) ((eq restriction 'buffer) 
(if (not ...) (setq org-agenda-restrict t) (setq org-agenda-restrict 
...) (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 (progn (setq type ...) (setq org-match ...) (setq 
lprops ...)) (if org-agenda-sticky (progn ...)) (progn (let* ... ... 
...)) (let (...) (add-text-properties ... ... ...))) 
(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 
'org-agenda-custom-commands)) ((equal org-keys \\\"a\\\") 
(call-interactively 'org-agenda-list)) ((equal org-keys \\\"s\\\") 
(call-interactively 'org-search-view)) ((equal org-keys \\\"S\\\") 
(org-call-with-arg 'org-search-view (or arg '(4)))) ((equal org-keys 
\\\"t\\\") (call-interactively 'org-todo-list)) ((equal org-keys 
\\\"T\\\") (org-call-with-arg 'org-todo-list (or arg '(4)))) ((equal 
org-keys \\\"m\\\") (call-interactively 'org-tags-view)) ((equal 
org-keys \\\"M\\\") (org-call-with-arg 'org-tags-view (or arg '(4)))) 
((equal org-keys \\\"e\\\") (call-interactively 
'org-store-agenda-views)) ((equal org-keys \\\"?\\\") (org-tags-view nil 
\\\"+FLAGGED\\\") (add-hook 'post-command-hook #'(lambda nil (if ... nil 
...)) t t)) ((equal org-keys \\\"#\\\") (call-interactively 
'org-agenda-list-stuck-projects)) ((equal org-keys \\\"/\\\") 
(call-interactively 'org-occur-in-agenda-files)) ((equal org-keys 
\\\"!\\\") (customize-variable 'org-stuck-projects)) (t (user-error 
\\\"Invalid agenda key\\\")))))\n org-agenda(nil)\n 
funcall-interactively(org-agenda nil)\n command-execute(org-agenda)\n 
completing-read-multiple(\\\"Tags: \\\" ((\\\"symtom_log\\\") 
(\\\"running_journal\\\") (\\\"tooling\\\") (\\\"masala\\\") 
(\\\"weight\\\") (\\\"healthcare\\\") (\\\"ozempic_taper\\\") 
(\\\"bp_reading\\\") (\\\"travel_log\\\") 
(\\\"grad_school_decisions\\\") (\\\"crypto\\\") (\\\"symtp\\\") 
(\\\"dream\\\") (\\\"mecfs\\\") (\\\"sasha\\\") (\\\"habits\\\") 
(\\\"annie\\\") (\\\"dating\\\") (\\\"therap\\\") (\\\"therapy\\\") 
(\\\"symptom_log\\\") (\\\"ergonomics\\\") (\\\"journal\\\") 
(\\\"covid\\\") (\\\"ithaka\\\")) nil nil \\\":journal:\\\" 
org-tags-history)\n org-set-tags-command(nil)\n 
funcall-interactively(org-set-tags-command nil)\n 
command-execute(org-set-tags-command)\n\"\n Please report this to Org 
mode mailing list (M-x org-submit-bug-report).")
org-speed-command-hook '(org-speed-command-activate 
org-babel-speed-command-activate)
org-html-format-inlinetask-function 
'org-html-format-inlinetask-default-function
org-clock-persist-file "~/.emacs.d/.cache/org-clock-save.el"
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-refile-use-cache t
org-latex-prefer-user-labels t
org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
org-preview-latex-default-process 'dvisvgm
org-latex-format-inlinetask-function 
'org-latex-format-inlinetask-default-function
org-persist-before-write-hook '(org-element--cache-persist-before-write)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe 
org-babel-header-arg-expand)
org-link-shell-confirm-function 'yes-or-no-p
org-babel-pre-tangle-hook '(save-buffer)
org-agenda-loop-over-headlines-in-active-region nil
org-capture-mode-hook '(spacemacs//org-capture-start)
org-occur-hook '(org-first-headline-recenter)
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-link-parameters '(("orgit-rev" :store orgit-rev-store :follow 
orgit-rev-open :export orgit-rev-export :complete orgit-rev-complete-link)
("orgit-log" :store orgit-log-store :follow orgit-log-open :export 
orgit-log-export :complete orgit-log-complete-link)
("orgit" :store orgit-status-store :follow orgit-status-open :export 
orgit-status-export :complete orgit-status-complete-link)
("attachment" :follow org-attach-follow :complete 
org-attach-complete-link) ("eww" :follow org-eww-open :store 
org-eww-store-link)
("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe" 
:follow org-mhe-open :store org-mhe-store-link)
("irc" :follow org-irc-visit :store org-irc-store-link :export 
org-irc-export)
("info" :follow org-info-open :export org-info-export :store 
org-info-store-link :insert-description org-info-description-as-command)
("gnus" :follow org-gnus-open :store org-gnus-store-link) ("docview" 
:follow org-docview-open :export org-docview-export :store 
org-docview-store-link)
("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete 
org-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store 
org-w3m-store-link)
("doi" :follow org-link-doi-open :export org-link-doi-export) ("id" 
:follow org-id-open :store org-id-store-link-maybe)
("treemacs" :store treemacs-store-org-link)
("orgit-topic" :store orgit-topic-store :follow orgit-topic-open :export 
orgit-topic-export :complete orgit-topic-complete-link :insert-description
orgit-topic-describe-link)
("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell) 
("news" :follow #[514 "\301\300\302Q\"\207" ["news" browse-url ":"] 6 
"\n\n(fn URL ARG)"])
("mailto" :follow #[514 "\301\300\302Q\"\207" ["mailto" browse-url ":"] 
6 "\n\n(fn URL ARG)"])
("https" :follow #[514 "\301\300\302Q\"\207" ["https" browse-url ":"] 6 
"\n\n(fn URL ARG)"])
("http" :follow #[514 "\301\300\302Q\"\207" ["http" browse-url ":"] 6 
"\n\n(fn URL ARG)"])
("ftp" :follow #[514 "\301\300\302Q\"\207" ["ftp" browse-url ":"] 6 
"\n\n(fn URL ARG)"]) ("help" :follow org-link--open-help :store 
org-link--store-help)
("file" :complete org-link-complete-file) ("elisp" :follow 
org-link--open-elisp))
org-html-format-headline-function 
'org-html-format-headline-default-function
org-metaup-hook '(org-babel-load-in-session-maybe)
org-agenda-restore-windows-after-quit t
org-agenda-include-diary t
org-startup-with-inline-images t
org-imenu-depth 8
org-download-link-format-function 
'org-download-link-format-function-default
org-outline-path-complete-in-steps nil
org-src-lang-modes '(("beamer" . LaTeX) ("latex" . LaTeX) ("C" . c) 
("C++" . c++) ("asymptote" . asy) ("beamer" . latex) ("calc" . 
fundamental) ("cpp" . c++) ("ditaa" . artist)
("desktop" . conf-desktop) ("dot" . fundamental) ("elisp" . emacs-lisp) 
("ocaml" . tuareg) ("screen" . shell-script) ("sqlite" . sql) ("toml" . 
conf-toml)
("shell" . sh) ("ash" . sh) ("sh" . sh) ("bash" . sh) ("jsh" . sh) 
("bash2" . sh) ("dash" . sh) ("dtksh" . sh) ("ksh" . sh) ("es" . sh) 
("rc" . sh) ("itcsh" . sh)
("tcsh" . sh) ("jcsh" . sh) ("csh" . sh) ("ksh88" . sh) ("oash" . sh) 
("pdksh" . sh) ("mksh" . sh) ("posix" . sh) ("wksh" . sh) ("wsh" . sh) 
("zsh" . sh)
("rpm" . sh))
org-export-preserve-breaks t
)


^ permalink raw reply	[flat|nested] 4+ messages in thread
end of thread, other threads:[~2024-10-12 17:50 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-10-11  6:56 [BUG] warning while loading org-agenda [9.7.12 (9.7.12-28c83e @ /Users/andrew/.emacs.d/elpa/29.1/develop/org-9.7.12/)] Andrew Berger
2024-10-12 13:00 ` Ihor Radchenko
2024-10-12 17:40   ` Andrew Berger
2024-10-12 17:52     ` Ihor Radchenko

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).