emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] Problem after updating org: C-c a a broken


From: Nick Dokos
Subject: Re: [O] Problem after updating org: C-c a a broken
Date: Fri, 28 Oct 2011 15:09:17 -0400

Markus Heller <address@hidden> 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 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-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)
> 
> 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]