Hello all,
just pulled from git.
When I type C-c a a to pull up the agenda, I get the error shown below.
This used to work prior to the update.
Org version is 7.7, pulled 5 min ago on emacs 23.3.1.
Help please, can't access my agenda anymore :(
Thanks
Markus
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
format(nil "COMMENT")
(setq re (format org-heading-keyword-regexp-format org-comment-string))
(save-excursion (remove-text-properties (point-min) (point-max) pall) (when
org-agenda-skip-archived-trees (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
... ... pc)))
(catch (quote nextfile) (if (bufferp file) (set-buffer file)
(org-check-agenda-file file) (set-buffer ...)) (widen) (setq bmp
(buffer-modified-p)) (org-refresh-category-properties) (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 (append
org-tag-alist-for-agenda org-tag-alist)) (save-excursion
(remove-text-properties ... ... pall) (when org-agenda-skip-archived-trees ...
...) (goto-char ...) (setq re ...) (while ... ...)) (set-buffer-modified-p bmp))
(while (setq file (pop files)) (catch (quote nextfile) (if ... ... ... ...)
(widen) (setq bmp ...) (org-refresh-category-properties) (setq
org-todo-keywords-for-agenda ...) (setq org-done-keywords-for-agenda ...) (setq
org-todo-keyword-alist-for-agenda ...) (setq org-drawers-for-agenda ...) (setq
org-tag-alist-for-agenda ...) (save-excursion ... ... ... ... ...)
(set-buffer-modified-p bmp)))
(save-restriction (while (setq file ...) (catch ... ... ... ... ... ... ...
... ... ... ... ...)))
(save-excursion (save-restriction (while ... ...)))
(let ((pa ...) (pc ...) (pall ...) (inhibit-read-only t) (rea ...) bmp file
re) (save-excursion (save-restriction ...)) (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-tag-alist-for-agenda (org-uniquify
org-tag-alist-for-agenda)))
org-prepare-agenda-buffers(("h:/org/NMR.org" "h:/org/Office.org"
"h:/org/refile.org"))
(if org-agenda-multi (progn (setq buffer-read-only nil) (goto-char ...)
(unless ... ...) (narrow-to-region ... ...)) (org-agenda-reset-markers) (setq
org-agenda-contributing-files nil) (setq org-agenda-columns-active nil)
(org-prepare-agenda-buffers (org-agenda-files nil ...)) (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)) (let* (... ...)
(cond ... ... ... ... ... ... ...) (unless ... ...)) (setq buffer-read-only
nil) (let (...) (erase-buffer)) (org-agenda-mode) (and name (not
org-agenda-name) (org-set-local ... name)))
org-prepare-agenda("Day/Week")
(let* ((span ...) (today ...) (sd ...) (ndays ...)
(org-agenda-start-on-weekday ...) (thefiles ...) (files thefiles) (start ...)
(day-numbers ...) (day-cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date
d start-pos end-pos todayp clocktable-start clocktable-end filter) (setq
org-agenda-redo-command (list ... ... start-day ...)) (dotimes (n ...) (push
... day-numbers)) (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-arg-loc) arg) (org-set-local (quote
org-agenda-current-span) (org-agenda-ndays-to-span span)) (unless
org-agenda-compact-blocks (let* ... ... ...) (add-text-properties s ... ...)
(org-agenda-mark-header-line s)) (while (setq d ...) (setq date ... 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 ...)) (if
(eq org-agenda-show-log ...) (org-agenda-show-clocking-issues))
(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 "?") (org-tags-view nil "+FLAGGED")
(org-add-hook ... ... t t)) ((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-window-setup ...)
(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 (unless ... ...) (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)) (unless keys (setq
ans ... keys ... restriction ...)) (when (and ... restriction) (put ... ...
...) (cond ... ...)) (cond (... ...) (... ... ...) (... ...) (... ...) (...
...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ... ...) (...
...) (... ...) (... ...) (t ...)))
(catch (quote exit) (let* (... ... ... ... ... ... entry key type match
lprops ans) (unless org-agenda-overriding-restriction ... ... ... ...) (put ...
... nil) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...) (unless
keys ...) (when ... ... ...) (cond ... ... ... ... ... ... ... ... ... ... ...
... ... ... ...)))
org-agenda(nil)
call-interactively(org-agenda nil nil)
