Re: Help: Agenda not working anymore

[Erik Iverson <eriki@ccbr.umn.edu>]

Could be related:

I just pulled latest from git this morning:  my agenda seems to compile, 
but I get in the *Messages* buffer:

concat: Wrong type argument: listp, "* Letters"

Backtrace follows:

Debugger entered--Lisp error: (wrong-type-argument listp "* Letters")
   nth(0 "* Letters")
   (concat "(?\\(" (regexp-quote "\\") (nth 0 el) "[^[:alnum:]]" "\\)")
   (list (concat "(?\\(" (regexp-quote "\\") (nth 0 el) "[^[:alnum:]]" 
"\\)") (\` (0 ...)))
   (lambda (el) (list (concat "(?\\(" ... ... "[^[:alnum:]]" "\\)") (\` 
...)))("* Letters")
   mapcar((lambda (el) (list (concat "(?\\(" ... ... "[^[:alnum:]]" 
"\\)") (\` ...))) ("* Letters" "** Latin" ("Agrave" "\\`{A}" nil 
"À" "A" "À" "À") ("agrave" "\\`{a}" nil "à" "a" "à" "à") 
("Aacute" "\\'{A}" nil "Á" "A" "Á" "Á") ("aacute" "\\'{a}" nil 
"á" "a" "á" "á") ("Acirc" "\\^{A}" nil "Â" "A" "Â" "Â") 
("acirc" "\\^{a}" nil "â" "a" "â" "â") ("Atilde" "\\~{A}" nil 
"Ã" "A" "Ã" "Ã") ("atilde" "\\~{a}" nil "ã" "a" "ã" "ã") 
("Auml" "\\\"{A}" nil "Ä" "Ae" "Ä" "Ä") ("auml" "\\\"{a}" nil 
"ä" "ae" "ä" "ä") ("Aring" "\\AA{}" nil "Å" "A" "Å" "Å") 
("AA" "\\AA{}" nil "Å" "A" "Å" "Å") ("aring" "\\aa{}" nil 
"å" "a" "å" "å") ("AElig" "\\AE{}" nil "Æ" "AE" "Æ" "Æ") 
("aelig" "\\ae{}" nil "æ" "ae" "æ" "æ") ("Ccedil" "\\c{C}" nil 
"Ç" "C" "Ç" "Ç") ("ccedil" "\\c{c}" nil "ç" "c" "ç" "ç") 
("Egrave" "\\`{E}" nil "È" "E" "È" "È") ("egrave" "\\`{e}" nil 
"è" "e" "è" "è") ("Eacute" "\\'{E}" nil "É" "E" "É" "É") 
("eacute" "\\'{e}" nil "é" "e" "é" "é") ("Ecirc" "\\^{E}" nil 
"Ê" "E" "Ê" "Ê") ("ecirc" "\\^{e}" nil "ê" "e" "ê" "ê") 
("Euml" "\\\"{E}" nil "Ë" "E" "Ë" "Ë") ("euml" "\\\"{e}" nil 
"ë" "e" "ë" "ë") ("Igrave" "\\`{I}" nil "Ì" "I" "Ì" "Ì") 
("igrave" "\\`{i}" nil "ì" "i" "ì" "ì") ("Iacute" "\\'{I}" nil 
"Í" "I" "Í" "Í") ("iacute" "\\'{i}" nil "í" "i" "í" "í") 
("Icirc" "\\^{I}" nil "Î" "I" "Î" "Î") ("icirc" "\\^{i}" nil 
"î" "i" "î" "î") ("Iuml" "\\\"{I}" nil "Ï" "I" "Ï" "Ï") 
("iuml" "\\\"{i}" nil "ï" "i" "ï" "ï") ("Ntilde" "\\~{N}" nil 
"Ñ" "N" "Ñ" "Ñ") ("ntilde" "\\~{n}" nil "ñ" "n" "ñ" "ñ") 
("Ograve" "\\`{O}" nil "Ò" "O" "Ò" "Ò") ("ograve" "\\`{o}" nil 
"ò" "o" "ò" "ò") ("Oacute" "\\'{O}" nil "Ó" "O" "Ó" "Ó") 
("oacute" "\\'{o}" nil "ó" "o" "ó" "ó") ("Ocirc" "\\^{O}" nil 
"Ô" "O" "Ô" "Ô") ("ocirc" "\\^{o}" nil "ô" "o" "ô" "ô") 
("Otilde" "\\~{O}" nil "Õ" "O" "Õ" "Õ") ("otilde" "\\~{o}" nil 
"õ" "o" "õ" "õ") ("Ouml" "\\\"{O}" nil "Ö" "Oe" "Ö" "Ö") 
("ouml" "\\\"{o}" nil "ö" "oe" "ö" "ö") ("Oslash" "\\O" nil 
"Ø" "O" "Ø" "Ø") ("oslash" "\\o{}" nil "ø" "o" "ø" "ø") 
("OElig" "\\OE{}" nil "Œ" "OE" "OE" "Œ") ...))
   (font-lock-add-keywords nil (mapcar (lambda ... ...) org-entities))
   org-pretty-entities()
   run-hooks(text-mode-hook outline-mode-hook org-mode-hook)
   apply(run-hooks (text-mode-hook outline-mode-hook org-mode-hook))
   run-mode-hooks(org-mode-hook)
   org-mode()
   (progn (org-mode) (org-create-dblock props) (org-update-dblock) 
(font-lock-fontify-buffer) (forward-line 2) (buffer-substring (point) 
(progn ... ...)))
   (unwind-protect (progn (org-mode) (org-create-dblock props) 
(org-update-dblock) (font-lock-fontify-buffer) (forward-line 2) 
(buffer-substring ... ...)) (and (buffer-name temp-buffer) (kill-buffer 
temp-buffer)))
   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn 
... ... ... ... ... ...) (and ... ...)))
   (with-current-buffer temp-buffer (unwind-protect (progn ... ... ... 
... ... ...) (and ... ...)))
   (let ((temp-buffer ...)) (with-current-buffer temp-buffer 
(unwind-protect ... ...)))
   (with-temp-buffer (org-mode) (org-create-dblock props) 
(org-update-dblock) (font-lock-fontify-buffer) (forward-line 2) 
(buffer-substring (point) (progn ... ...)))
   org-get-clocktable(:link t :maxlevel 2 :tstart 733965 :tend 733972 
:scope agenda)
   apply(org-get-clocktable (:link t :maxlevel 2 :tstart 733965 :tend 
733972 :scope agenda))
   (setq tbl (apply (quote org-get-clocktable) p))
   (let ((org-agenda-files ...) (p 
org-agenda-clockreport-parameter-plist) tbl) (setq p (org-plist-delete p 
:block)) (setq p (plist-put p :tstart clocktable-start)) (setq p 
(plist-put p :tend clocktable-end)) (setq p (plist-put p :scope ...)) 
(setq tbl (apply ... p)) (insert tbl))
   (progn (let (... ... tbl) (setq p ...) (setq p ...) (setq p ...) 
(setq p ...) (setq tbl ...) (insert tbl)))
   (if (and org-agenda-clockreport-mode clocktable-start) (progn (let 
... ... ... ... ... ... ...)))
   (when (and org-agenda-clockreport-mode clocktable-start) (let (... 
... tbl) (setq p ...) (setq p ...) (setq p ...) (setq p ...) (setq tbl 
...) (insert tbl)))
   (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 ... 
...) (org-agenda-mark-header-line 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 "?") (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) (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) (setq org-agenda-last-dispatch-buffer ...) 
(unless keys ...) (when ... ... ...) (cond ... ... ... ... ... ... ... 
... ... ... ... ... ... ... ...)))
   org-agenda(nil)
   call-interactively(org-agenda nil nil)


Markus Heller wrote:
> Hello,
> 
> today, after starting emacs, the agenda does not work anymore.  I type 
> C-a a to get the daily overview, but org gets stuck at CONTENTS...done 
> (see message buffer at the end).
> 
> When I try f9-m (see Bernt's set-up), I get the following message in the 
> mini-buffer: mapcar: Wrong type argument: listp, \.\.\.
> 
> I pulled the latest release, but that didn't help unfortunately.
> 
> My versions:
> 
> Org-mode: Org-mode version 6.36trans (release_6.36.608.gc1ef)
> emacs: 23.2.1
> Windoze XP
> 
> Please help :)
> 
> Thanks!!
> Markus
> 
> *Messages* after C-a a:
> Loading c:/Documents and 
> Settings/mheller/.emacs.d/org-mode/contrib/lisp/org-checklist.el 
> (source)...done
> Loading c:/Documents and 
> Settings/mheller/.emacs.d/org-mode/contrib/lisp/org-depend.el 
> (source)...done
> Loading c:/Documents and 
> Settings/mheller/.emacs.d/org-mode/contrib/lisp/org-expiry.el 
> (source)...done
> Loading c:/Documents and 
> Settings/mheller/.emacs.d/site-lisp/color-theme-6.6.0/themes/color-theme-example.el 
> (source)...done
> Loading c:/Documents and 
> Settings/mheller/.emacs.d/site-lisp/color-theme-6.6.0/themes/color-theme-library.el 
> (source)...done
> Loading c:/Documents and 
> Settings/mheller/.emacs.d/site-lisp/themes/color-theme-railscasts.el 
> (source)...done
> Loading paren...done
> For information about GNU Emacs and the GNU system, type C-h C-a.
> Press key for agenda command:
> OVERVIEW
> CONTENTS...done
> Starting new Ispell process [default] ...
> Restoring clock data
> Loading c:/Documents and Settings/mheller/.emacs.d/org-clock-save.el 
> (source)...done
> OVERVIEW
> Loading vc-git...done
> OVERVIEW
> CONTENTS...done
> OVERVIEW
> CONTENTS...done
> OVERVIEW
> CONTENTS...done
> Quit
> 
> 
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode