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.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode