Debugger entered--Lisp error: (wrong-type-argument stringp nil) re-search-forward(nil nil t) (while (re-search-forward regexp nil t) (catch :skip (org-agenda-skip) (setq s ... txt nil pos ... d2 ... diff ... wdays ... dfrac ... upcomingp ...) (if ... ...))) (let* ((props ...) (regexp org-deadline-time-regexp) (todayp ...) (d1 ...) d2 diff dfrac wdays pos pos1 category tags ee txt head face s todo-state upcomingp donep timestr) (goto-char (point-min)) (while (re-search-forward regexp nil t) (catch :skip ... ... ...)) (nreverse ee)) org-agenda-get-deadlines() (setq rtn (org-agenda-get-deadlines)) (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq arg :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) (setq results ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((eq arg :scheduled) (setq rtn ...) (setq results ...)) ((eq arg :closed) (setq rtn ...) (setq results ...)) ((eq arg :deadline) (setq rtn ...) (setq results ...))) (while (setq arg (pop args)) (cond (... ... ...) (... ... ... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...))) (save-restriction (if org-agenda-restrict (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq arg ...) (cond ... ... ... ... ... ...))) (save-excursion (save-restriction (if org-agenda-restrict ... ...) (while ... ...))) (let ((case-fold-search nil)) (save-excursion (save-restriction ... ...))) (save-current-buffer (set-buffer buffer) (unless (org-mode-p) (error "Agenda file %s is not in `org-mode'" file)) (let (...) (save-excursion ...)) results) (with-current-buffer buffer (unless (org-mode-p) (error "Agenda file %s is not in `org-mode'" file)) (let (...) (save-excursion ...)) results) (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file %s" file)) (with-current-buffer buffer (unless ... ...) (let ... ...) results)) (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) (buffer ...) arg results rtn) (if (not buffer) (list ...) (with-current-buffer buffer ... ... results))) org-agenda-get-day-entries("~/Admin/Org/ToDo.org" (8 10 2009) :deadline :scheduled :sexp :timestamp) (setq rtn (org-agenda-get-day-entries file date :deadline :scheduled :sexp :timestamp)) (cond ((eq org-agenda-show-log ...) (setq rtn ...)) (org-agenda-show-log (setq rtn ...)) (t (setq rtn ...))) (catch (quote nextfile) (org-check-agenda-file file) (cond (... ...) (org-agenda-show-log ...) (t ...)) (setq rtnall (append rtnall rtn))) (while (setq file (pop files)) (catch (quote nextfile) (org-check-agenda-file file) (cond ... ... ...) (setq rtnall ...))) (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolute d) wd (calendar-day-of-week date) s (point)) (if (or ... ...) (setq start-pos ...) (if ... ...)) (setq files thefiles rtnall nil) (while (setq file ...) (catch ... ... ... ...)) (if org-agenda-include-diary (let ... ... ... ...)) (if (or rtnall org-agenda-show-all-dates) (progn ... ... ... ... ... ... ... ... ...))) (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos end-pos todayp nd wd clocktable-start clocktable-end) (setq org-agenda-redo-command (list ... ... start-day ndays)) (setq ndays (or ndays org-agenda-ndays) nd ndays) (while (> ndays 1) (push ... day-numbers) (setq ndays ...)) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end (1+ ...)) (org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote org-include-all-loc) include-all) (org-set-local (quote org-agenda-span) (org-agenda-ndays-to-span nd)) (when (and ... ...) (setq files thefiles rtnall nil) (while ... ...) (when rtnall ... ... ...)) (unless org-agenda-compact-blocks (let* ... ... ...) (add-text-properties s ... ...)) (while (setq d ...) (setq date ... wd ... s ...) (if ... ... ...) (setq files thefiles rtnall nil) (while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (when (and org-agenda-clockreport-mode clocktable-start) (let ... ... ... ... ... ... ...)) (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-window)) (unless (and ... ...) (goto-char ...) (recenter -1) (if ... ...)) (goto-char (or start-pos 1)) (add-text-properties (point-min) (point-max) (quote ...)) (org-finalize-agenda) (setq buffer-read-only t) (message "")) org-agenda-list(nil) call-interactively(org-agenda-list) (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq org-agenda-custom-commands org-agenda-custom-commands-orig) (customize-variable ...)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") (call-interactively ...)) ((equal keys "t") (call-interactively ...)) ((equal keys "T") (org-call-with-arg ... ...)) ((equal keys "m") (call-interactively ...)) ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e") (call-interactively ...)) ((equal keys "L") (unless ... ...) (unless restriction ... ...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/") (call-interactively ...)) ((equal keys "!") (customize-variable ...)) (t (error "Invalid agenda key"))) (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-agenda-overriding-restriction (put ... ... 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) (setq org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... keys ... restriction ...)) (when (and ... restriction) (put ... ... ...) (cond ... ...)) (require (quote calendar)) (cond (... ...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) (t ...))) (catch (quote exit) (let* (... ... ... ... ... entry key type match lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless keys ...) (when ... ... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) org-agenda(nil) call-interactively(org-agenda)