[O] Org-Agenda doesn't work

[David Masterson]

I got most of Org working again, but then the following error came up in
org-agenda.  I removed the ELC files to try to make the error more
clear.  Anyone know what the problem is?

Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  put-text-property(23003 nil org-effort "15")
  (save-excursion (org-back-to-heading t) (put-text-property (point-at-bol) 
(outline-next-heading) tprop p))
  (while (re-search-forward (concat "^[         ]*:" dprop ": +\\(.*\\)[        
]*$") nil t) (setq p (org-match-string-no-properties 1)) (save-excursion 
(org-back-to-heading t) (put-text-property (point-at-bol) 
(outline-next-heading) tprop p)))
  (save-restriction (widen) (goto-char (point-min)) (while (re-search-forward 
(concat "^[       ]*:" dprop ": +\\(.*\\)[        ]*$") nil t) (setq p 
(org-match-string-no-properties 1)) (save-excursion (org-back-to-heading t) 
(put-text-property (point-at-bol) (outline-next-heading) tprop p))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (while 
(re-search-forward (concat "^[       ]*:" dprop ": +\\(.*\\)[        ]*$") nil 
t) (setq p (org-match-string-no-properties 1)) (save-excursion 
(org-back-to-heading t) (put-text-property (point-at-bol) 
(outline-next-heading) tprop p)))))
  (progn (save-excursion (save-restriction (widen) (goto-char (point-min)) 
(while (re-search-forward (concat "^[        ]*:" dprop ": +\\(.*\\)[        
]*$") nil t) (setq p (org-match-string-no-properties 1)) (save-excursion 
(org-back-to-heading t) (put-text-property (point-at-bol) 
(outline-next-heading) tprop p))))))
  (unwind-protect (progn (save-excursion (save-restriction (widen) (goto-char 
(point-min)) (while (re-search-forward (concat "^[        ]*:" dprop ": 
+\\(.*\\)[        ]*$") nil t) (setq p (org-match-string-no-properties 1)) 
(save-excursion (org-back-to-heading t) (put-text-property (point-at-bol) 
(outline-next-heading) tprop p)))))) (if modified nil 
(restore-buffer-modified-p nil)))
  (let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only 
t) (inhibit-modification-hooks t) deactivate-mark buffer-file-name 
buffer-file-truename) (unwind-protect (progn (save-excursion (save-restriction 
(widen) (goto-char (point-min)) (while (re-search-forward (concat "^[         
]*:" dprop ": +\\(.*\\)[        ]*$") nil t) (setq p 
(org-match-string-no-properties 1)) (save-excursion (org-back-to-heading t) 
(put-text-property ... ... tprop p)))))) (if modified nil 
(restore-buffer-modified-p nil))))
  (let ((case-fold-search t) (inhibit-read-only t) p) (let* ((modified 
(buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) 
(inhibit-modification-hooks t) deactivate-mark buffer-file-name 
buffer-file-truename) (unwind-protect (progn (save-excursion (save-restriction 
(widen) (goto-char (point-min)) (while (re-search-forward ... nil t) (setq p 
...) (save-excursion ... ...))))) (if modified nil (restore-buffer-modified-p 
nil)))))
  org-refresh-properties("Effort" org-effort)
  (or (memq (quote effort) org-agenda-ignore-drawer-properties) 
(org-refresh-properties org-effort-property (quote org-effort)))
  (catch (quote nextfile) (if (bufferp file) (set-buffer file) 
(org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) 
(widen) (org-set-regexps-and-options-for-tags) (setq pos (point)) (goto-char 
(point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil 
t) (progn (org-set-regexps-and-options)))) (or (memq (quote category) 
org-agenda-ignore-drawer-properties) (org-refresh-category-properties)) (or 
(memq (quote effort) org-agenda-ignore-drawer-properties) 
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq 
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties 
"APPT_WARNTIME" (quote org-appt-warntime))) (setq org-todo-keywords-for-agenda 
(append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq 
org-done-keywords-for-agenda (append org-done-keywords-for-agenda 
org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda 
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist (append 
org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified 
(buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) 
(inhibit-modification-hooks t) deactivate-mark buffer-file-name 
buffer-file-truename) (unwind-protect (progn (save-excursion 
(remove-text-properties (point-min) (point-max) pall) (if 
org-agenda-skip-archived-trees (progn (goto-char ...) (while ... ...))) 
(goto-char (point-min)) (setq re (format org-heading-keyword-regexp-format 
org-comment-string)) (while (re-search-forward re nil t) (add-text-properties 
(match-beginning 0) (org-end-of-subtree t) pc)))) (if modified nil 
(restore-buffer-modified-p nil)))) (goto-char pos))
  (while (setq file (car (prog1 files (setq files (cdr files))))) (catch (quote 
nextfile) (if (bufferp file) (set-buffer file) (org-check-agenda-file file) 
(set-buffer (org-get-agenda-file-buffer file))) (widen) 
(org-set-regexps-and-options-for-tags) (setq pos (point)) (goto-char 
(point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil 
t) (progn (org-set-regexps-and-options)))) (or (memq (quote category) 
org-agenda-ignore-drawer-properties) (org-refresh-category-properties)) (or 
(memq (quote effort) org-agenda-ignore-drawer-properties) 
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq 
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties 
"APPT_WARNTIME" (quote org-appt-warntime))) (setq org-todo-keywords-for-agenda 
(append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq 
org-done-keywords-for-agenda (append org-done-keywords-for-agenda 
org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda 
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist (append 
org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified 
(buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) 
(inhibit-modification-hooks t) deactivate-mark buffer-file-name 
buffer-file-truename) (unwind-protect (progn (save-excursion 
(remove-text-properties (point-min) (point-max) pall) (if 
org-agenda-skip-archived-trees (progn ... ...)) (goto-char (point-min)) (setq 
re (format org-heading-keyword-regexp-format org-comment-string)) (while 
(re-search-forward re nil t) (add-text-properties ... ... pc)))) (if modified 
nil (restore-buffer-modified-p nil)))) (goto-char pos)))
  (save-restriction (while (setq file (car (prog1 files (setq files (cdr 
files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) 
(org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer file))) 
(widen) (org-set-regexps-and-options-for-tags) (setq pos (point)) (goto-char 
(point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil 
t) (progn (org-set-regexps-and-options)))) (or (memq (quote category) 
org-agenda-ignore-drawer-properties) (org-refresh-category-properties)) (or 
(memq (quote effort) org-agenda-ignore-drawer-properties) 
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq 
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties 
"APPT_WARNTIME" (quote org-appt-warntime))) (setq org-todo-keywords-for-agenda 
(append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq 
org-done-keywords-for-agenda (append org-done-keywords-for-agenda 
org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda 
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist (append 
org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified 
(buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) 
(inhibit-modification-hooks t) deactivate-mark buffer-file-name 
buffer-file-truename) (unwind-protect (progn (save-excursion 
(remove-text-properties ... ... pall) (if org-agenda-skip-archived-trees ...) 
(goto-char ...) (setq re ...) (while ... ...))) (if modified nil 
(restore-buffer-modified-p nil)))) (goto-char pos))))
  (save-excursion (save-restriction (while (setq file (car (prog1 files (setq 
files (cdr files))))) (catch (quote nextfile) (if (bufferp file) (set-buffer 
file) (org-check-agenda-file file) (set-buffer (org-get-agenda-file-buffer 
file))) (widen) (org-set-regexps-and-options-for-tags) (setq pos (point)) 
(goto-char (point-min)) (let ((case-fold-search t)) (if (search-forward 
"#+setupfile" nil t) (progn (org-set-regexps-and-options)))) (or (memq (quote 
category) org-agenda-ignore-drawer-properties) 
(org-refresh-category-properties)) (or (memq (quote effort) 
org-agenda-ignore-drawer-properties) (org-refresh-properties 
org-effort-property (quote org-effort))) (or (memq (quote appt) 
org-agenda-ignore-drawer-properties) (org-refresh-properties "APPT_WARNTIME" 
(quote org-appt-warntime))) (setq org-todo-keywords-for-agenda (append 
org-todo-keywords-for-agenda org-todo-keywords-1)) (setq 
org-done-keywords-for-agenda (append org-done-keywords-for-agenda 
org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda 
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist (append 
org-tag-groups-alist-for-agenda org-tag-groups-alist)))) (let* ((modified 
(buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) 
(inhibit-modification-hooks t) deactivate-mark buffer-file-name 
buffer-file-truename) (unwind-protect (progn (save-excursion ... ... ... ... 
...)) (if modified nil (restore-buffer-modified-p nil)))) (goto-char pos)))))
  (let ((pa (quote (:org-archived t))) (pc (quote (:org-comment t))) (pall 
(quote (:org-archived t :org-comment t))) (inhibit-read-only t) 
(org-inhibit-startup org-agenda-inhibit-startup) (rea (concat ":" 
org-archive-tag ":")) file re pos) (setq org-tag-alist-for-agenda nil 
org-tag-groups-alist-for-agenda nil) (save-excursion (save-restriction (while 
(setq file (car (prog1 files (setq files ...)))) (catch (quote nextfile) (if 
(bufferp file) (set-buffer file) (org-check-agenda-file file) (set-buffer 
(org-get-agenda-file-buffer file))) (widen) 
(org-set-regexps-and-options-for-tags) (setq pos (point)) (goto-char 
(point-min)) (let ((case-fold-search t)) (if (search-forward "#+setupfile" nil 
t) (progn ...))) (or (memq (quote category) 
org-agenda-ignore-drawer-properties) (org-refresh-category-properties)) (or 
(memq (quote effort) org-agenda-ignore-drawer-properties) 
(org-refresh-properties org-effort-property (quote org-effort))) (or (memq 
(quote appt) org-agenda-ignore-drawer-properties) (org-refresh-properties 
"APPT_WARNTIME" (quote org-appt-warntime))) (setq org-todo-keywords-for-agenda 
(append org-todo-keywords-for-agenda org-todo-keywords-1)) (setq 
org-done-keywords-for-agenda (append org-done-keywords-for-agenda 
org-done-keywords)) (setq org-todo-keyword-alist-for-agenda (append 
org-todo-keyword-alist-for-agenda org-todo-key-alist)) (setq 
org-drawers-for-agenda (append org-drawers-for-agenda org-drawers)) (setq 
org-tag-alist-for-agenda (org-uniquify (append org-tag-alist-for-agenda 
org-tag-alist org-tag-persistent-alist))) (if org-group-tags (setq 
org-tag-groups-alist-for-agenda (org-uniquify-alist ...))) (let* ((modified 
...) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) 
deactivate-mark buffer-file-name buffer-file-truename) (unwind-protect (progn 
...) (if modified nil ...))) (goto-char pos))))) (setq 
org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq 
org-todo-keyword-alist-for-agenda (org-uniquify 
org-todo-keyword-alist-for-agenda)))
  org-agenda-prepare-buffers(("~/org/tasks.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)) (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-drawers-for-agenda (org-uniquify org-drawers-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) (org-set-local (quote org-agenda-name) name)))
  (if (org-agenda-use-sticky-p) (progn (org-agenda-prepare-window (get-buffer 
org-agenda-buffer-name)) (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) (setq org-drawers-for-agenda nil) (if org-agenda-persistent-filter nil 
(setq org-agenda-tag-filter nil org-agenda-category-filter nil 
org-agenda-regexp-filter 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) (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)) (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-drawers-for-agenda (org-uniquify org-drawers-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) (org-set-local (quote org-agenda-name) name))) (setq 
buffer-read-only nil))
  org-agenda-prepare("TODO")
  (catch (quote exit) (if org-agenda-sticky (setq org-agenda-buffer-name (if 
(stringp org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or 
org-keys "t") org-select-this-todo-keyword) (format "*Org Agenda(%s)*" (or 
org-keys "t"))))) (org-agenda-prepare "TODO") (org-compile-prefix-format (quote 
todo)) (org-set-sorting-strategy (quote todo)) (setq org-agenda-redo-command 
(list (quote org-todo-list) (list (quote or) (quote (and (numberp 
current-prefix-arg) current-prefix-arg)) org-select-this-todo-keyword (quote 
current-prefix-arg) arg))) (setq files (org-agenda-files nil (quote ifmode)) 
rtnall nil) (while (setq file (car (prog1 files (setq files (cdr files))))) 
(catch (quote nextfile) (org-check-agenda-file file) (setq rtn 
(org-agenda-get-day-entries file date :todo)) (setq rtnall (append rtnall 
rtn)))) (if org-agenda-overriding-header (insert (org-add-props (copy-sequence 
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) 
"\n") (insert "Global list of TODO items of type: ") (add-text-properties 
(point-min) (1- (point)) (list (quote face) (quote org-agenda-structure) (quote 
short-heading) (concat "ToDo: " (or org-select-this-todo-keyword "ALL")))) 
(org-agenda-mark-header-line (point-min)) (insert 
(org-agenda-propertize-selected-todo-keywords org-select-this-todo-keyword)) 
(setq pos (point)) (if org-agenda-multi nil (insert "Available with `N r': 
(0)[ALL]") (let ((n 0) s) (mapc (function (lambda (x) (setq s ...) (if ... ...) 
(insert " " s))) kwds)) (insert "\n")) (add-text-properties pos (1- (point)) 
(list (quote face) (quote org-agenda-structure)))) (org-agenda-mark-header-line 
(point-min)) (if rtnall (progn (insert (org-agenda-finalize-entries rtnall 
(quote todo)) "\n"))) (goto-char (point-min)) (or org-agenda-multi 
(org-agenda-fit-window-to-buffer)) (add-text-properties (point-min) (point-max) 
(list (quote org-agenda-type) (quote todo) (quote org-last-args) arg (quote 
org-redo-cmd) org-agenda-redo-command (quote org-series-cmd) org-cmd)) 
(org-agenda-finalize) (setq buffer-read-only t))
  (let* ((today (org-today)) (date (calendar-gregorian-from-absolute today)) 
(kwds org-todo-keywords-for-agenda) (completion-ignore-case t) 
(org-select-this-todo-keyword (if (stringp arg) arg (and arg (integerp arg) (> 
arg 0) (nth (1- arg) kwds)))) rtn rtnall files file pos) (if (equal arg (quote 
(4))) (progn (setq org-select-this-todo-keyword (org-icompleting-read "Keyword 
(or KWD1|K2D2|...): " (mapcar (quote list) kwds) nil nil)))) (and (equal 0 arg) 
(setq org-select-this-todo-keyword nil)) (catch (quote exit) (if 
org-agenda-sticky (setq org-agenda-buffer-name (if (stringp 
org-select-this-todo-keyword) (format "*Org Agenda(%s:%s)*" (or org-keys "t") 
org-select-this-todo-keyword) (format "*Org Agenda(%s)*" (or org-keys "t"))))) 
(org-agenda-prepare "TODO") (org-compile-prefix-format (quote todo)) 
(org-set-sorting-strategy (quote todo)) (setq org-agenda-redo-command (list 
(quote org-todo-list) (list (quote or) (quote (and (numberp current-prefix-arg) 
current-prefix-arg)) org-select-this-todo-keyword (quote current-prefix-arg) 
arg))) (setq files (org-agenda-files nil (quote ifmode)) rtnall nil) (while 
(setq file (car (prog1 files (setq files (cdr files))))) (catch (quote 
nextfile) (org-check-agenda-file file) (setq rtn (org-agenda-get-day-entries 
file date :todo)) (setq rtnall (append rtnall rtn)))) (if 
org-agenda-overriding-header (insert (org-add-props (copy-sequence 
org-agenda-overriding-header) nil (quote face) (quote org-agenda-structure)) 
"\n") (insert "Global list of TODO items of type: ") (add-text-properties 
(point-min) (1- (point)) (list (quote face) (quote org-agenda-structure) (quote 
short-heading) (concat "ToDo: " (or org-select-this-todo-keyword "ALL")))) 
(org-agenda-mark-header-line (point-min)) (insert 
(org-agenda-propertize-selected-todo-keywords org-select-this-todo-keyword)) 
(setq pos (point)) (if org-agenda-multi nil (insert "Available with `N r': 
(0)[ALL]") (let ((n 0) s) (mapc (function (lambda ... ... ... ...)) kwds)) 
(insert "\n")) (add-text-properties pos (1- (point)) (list (quote face) (quote 
org-agenda-structure)))) (org-agenda-mark-header-line (point-min)) (if rtnall 
(progn (insert (org-agenda-finalize-entries rtnall (quote todo)) "\n"))) 
(goto-char (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) 
(add-text-properties (point-min) (point-max) (list (quote org-agenda-type) 
(quote todo) (quote org-last-args) arg (quote org-redo-cmd) 
org-agenda-redo-command (quote org-series-cmd) org-cmd)) (org-agenda-finalize) 
(setq buffer-read-only t)))
  org-todo-list(nil)
  call-interactively(org-todo-list)
  (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) (cddr 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") (org-add-hook (quote 
post-command-hook) (function (lambda nil (if (current-message) nil (let* (... 
...) (if note ...))))) t t)) ((equal org-keys "L") (if (derived-mode-p (quote 
org-mode)) nil (user-error "This is not an Org-mode file")) (if restriction nil 
(put (quote org-agenda-files) (quote org-restrict) (list bfn)) 
(org-call-with-arg (quote org-timeline) arg))) ((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 (and (boundp (quote 
org-agenda-keep-restricted-file-list)) 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) 
(cddr 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") (org-add-hook (quote 
post-command-hook) (function (lambda nil (if (current-message) nil (let* ... 
...)))) t t)) ((equal org-keys "L") (if (derived-mode-p (quote org-mode)) nil 
(user-error "This is not an Org-mode file")) (if restriction nil (put (quote 
org-agenda-files) (quote org-restrict) (list bfn)) (org-call-with-arg (quote 
org-timeline) arg))) ((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 (and (boundp (quote 
org-agenda-keep-restricted-file-list)) 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) (cddr 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") (org-add-hook (quote 
post-command-hook) (function (lambda nil (if ... nil ...))) t t)) ((equal 
org-keys "L") (if (derived-mode-p (quote org-mode)) nil (user-error "This is 
not an Org-mode file")) (if restriction nil (put (quote org-agenda-files) 
(quote org-restrict) (list bfn)) (org-call-with-arg (quote org-timeline) arg))) 
((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")))))
  org-agenda(nil)
  call-interactively(org-agenda nil nil)


-- 
David Masterson