From mboxrd@z Thu Jan 1 00:00:00 1970 From: Markus Heller Subject: Problem after updating org: C-c a a broken Date: Fri, 28 Oct 2011 11:36:50 -0700 Message-ID: <0vd3dhufnh.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([140.186.70.92]:48565) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RJrIg-0007q6-G7 for emacs-orgmode@gnu.org; Fri, 28 Oct 2011 14:37:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RJrIe-00012T-Jt for emacs-orgmode@gnu.org; Fri, 28 Oct 2011 14:37:06 -0400 Received: from lo.gmane.org ([80.91.229.12]:47885) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RJrId-00012J-Sw for emacs-orgmode@gnu.org; Fri, 28 Oct 2011 14:37:04 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1RJrIb-0001BP-SA for emacs-orgmode@gnu.org; Fri, 28 Oct 2011 20:37:01 +0200 Received: from mail.cdrd.ca ([142.103.191.98]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 28 Oct 2011 20:37:01 +0200 Received: from hellerm2 by mail.cdrd.ca with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Fri, 28 Oct 2011 20:37:01 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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) (wh= en org-agenda-skip-archived-trees (goto-char ...) (while ... ...)) (goto-ch= ar (point-min)) (setq re (format org-heading-keyword-regexp-format org-comm= ent-string)) (while (re-search-forward re nil t) (add-text-properties ... .= .. pc))) (catch (quote nextfile) (if (bufferp file) (set-buffer file) (org-check-a= genda-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-f= or-agenda org-tag-alist)) (save-excursion (remove-text-properties ... ... p= all) (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-buf= fer-modified-p bmp))) (save-restriction (while (setq file ...) (catch ... ... ... ... ... ... .= .. ... ... ... ... ...))) (save-excursion (save-restriction (while ... ...))) (let ((pa ...) (pc ...) (pall ...) (inhibit-read-only t) (rea ...) bmp fi= le 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-a= list-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) (set= q org-agenda-contributing-files nil) (setq org-agenda-columns-active nil) (= org-prepare-agenda-buffers (org-agenda-files nil ...)) (setq org-todo-keywo= rds-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-w= eekday ...) (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-c= ommand (list ... ... start-day ...)) (dotimes (n ...) (push ... day-numbers= )) (setq day-numbers (nreverse day-numbers)) (setq clocktable-start (car da= y-numbers) clocktable-end (1+ ...)) (org-prepare-agenda "Day/Week") (org-se= t-local (quote org-starting-day) (car day-numbers)) (org-set-local (quote o= rg-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 (se= tq d ...) (setq date ... s ...) (if ... ... ...) (setq files thefiles rtnal= l nil) (while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (whe= n (and org-agenda-clockreport-mode clocktable-start) (let ... ... ... ... .= .. ... ... ...)) (goto-char (point-min)) (or org-agenda-multi (org-fit-agen= da-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-i= ssues)) (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-age= nda-custom-commands org-agenda-custom-commands-orig) (customize-variable ..= .)) ((equal keys "a") (call-interactively ...)) ((equal keys "s") (call-int= eractively ...)) ((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-in= teractively ...)) ((equal keys "?") (org-tags-view nil "+FLAGGED") (org-add= -hook ... ... t t)) ((equal keys "L") (unless ... ...) (unless restriction = ... ...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/") (ca= ll-interactively ...)) ((equal keys "!") (customize-variable ...)) (t (erro= r "Invalid agenda key"))) (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) (org-agend= a-custom-commands-orig org-agenda-custom-commands) (org-agenda-custom-comma= nds ...) (buf ...) (bfn ...) entry key type match lprops ans) (unless org-a= genda-overriding-restriction (unless ... ...) (setq org-agenda-restrict nil= ) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restr= ict-end nil)) (put (quote org-agenda-redo-command) (quote org-lprops) nil) = (put (quote org-agenda-redo-command) (quote last-args) nil) (setq org-agend= a-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 l= props 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)