From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: Problem after updating org: C-c a a broken Date: Fri, 28 Oct 2011 15:09:17 -0400 Message-ID: <9724.1319828957@alphaville.americas.hpqcorp.net> References: <0vd3dhufnh.fsf@gmail.com> Reply-To: nicholas.dokos@hp.com Return-path: Received: from eggs.gnu.org ([140.186.70.92]:41331) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RJrnu-0007RC-Bq for emacs-orgmode@gnu.org; Fri, 28 Oct 2011 15:09:23 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RJrns-0007B3-Ds for emacs-orgmode@gnu.org; Fri, 28 Oct 2011 15:09:22 -0400 Received: from g4t0016.houston.hp.com ([15.201.24.19]:42618) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RJrns-0007Ay-2C for emacs-orgmode@gnu.org; Fri, 28 Oct 2011 15:09:20 -0400 In-Reply-To: Message from Markus Heller of "Fri, 28 Oct 2011 11:36:50 PDT." <0vd3dhufnh.fsf@gmail.com> 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: Markus Heller Cc: nicholas.dokos@hp.com, emacs-orgmode@gnu.org Markus Heller wrote: > 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)) I can't reproduce this: Org-mode version 7.7 (release_7.7.485.gcfed6.dirty) (this is a pull from about 30mins ago plus Eric Schulte's code block keywords patch). org-heading-keyword-regexp-format is initialized to nil and made buffer-local in org.el It is set to a non-nil value in org-set-regexps-and-options which is called from org-mode. So if the visited files's major mode is indeed org, I cannot imagine how this error can come about. What happens if you visit the three files in your agenda list and *then* do C-c a a? While visiting each file, do C-h v org-heading-keyword-regexp-format RET and see if it is nil or not. Nick > (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 bm p)) > (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-ag enda-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) > >