From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Help: Agenda not working anymore Date: Mon, 12 Jul 2010 19:16:07 +0200 Message-ID: References: <4C3B4D1C.9050708@ccbr.umn.edu> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=WINDOWS-1252; format=flowed; delsp=yes Content-Transfer-Encoding: quoted-printable Return-path: Received: from [140.186.70.92] (port=59549 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OYMc1-0005g4-KK for emacs-orgmode@gnu.org; Mon, 12 Jul 2010 13:16:15 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OYMc0-0002aq-1q for emacs-orgmode@gnu.org; Mon, 12 Jul 2010 13:16:13 -0400 Received: from mail-ey0-f169.google.com ([209.85.215.169]:60603) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OYMbz-0002aj-OP for emacs-orgmode@gnu.org; Mon, 12 Jul 2010 13:16:11 -0400 Received: by eydd26 with SMTP id d26so689775eyd.0 for ; Mon, 12 Jul 2010 10:16:11 -0700 (PDT) In-Reply-To: <4C3B4D1C.9050708@ccbr.umn.edu> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Erik Iverson Cc: Markus Heller , emacs-orgmode@gnu.org Hi Erik, you are using Eric Schultes code for pretty display of entities. (defun org-pretty-entities () (interactive) (font-lock-add-keywords nil (mapcar (lambda (el) (list (concat "(?\\(" (regexp-quote "\\") (nth 0 el) "[\s]" "\=20 \)") `(0 (progn (compose-region (match-beginning 1) (- (match-=20= end 1) 1) ,(nth 6 el)) nil)))) org-entities))) (org-pretty-entities) You should no longer use this code, instead please use the variable `org-pretty-entities'. HTH - Carsten On Jul 12, 2010, at 7:13 PM, Erik Iverson wrote: > Could be related: > > I just pulled latest from git this morning: my agenda seems to =20 > 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:]]" =20= > "\\)") (\` (0 ...))) > (lambda (el) (list (concat "(?\\(" ... ... "[^[:alnum:]]" "\\)") =20 > (\` ...)))("* Letters") > mapcar((lambda (el) (list (concat "(?\\(" ... ... "[^[:alnum:]]" "\=20= > \)") (\` ...))) ("* Letters" "** Latin" ("Agrave" "\\`{A}" nil =20 > "À" "A" "=C0" "=C0") ("agrave" "\\`{a}" nil "à" "a" "=E0" = =20 > "=E0") ("Aacute" "\\'{A}" nil "Á" "A" "=C1" "=C1") ("aacute" "\=20= > \'{a}" nil "á" "a" "=E1" "=E1") ("Acirc" "\\^{A}" nil "Â" = =20 > "A" "=C2" "=C2") ("acirc" "\\^{a}" nil "â" "a" "=E2" "=E2") = ("Atilde" =20 > "\\~{A}" nil "Ã" "A" "=C3" "=C3") ("atilde" "\\~{a}" nil =20 > "ã" "a" "=E3" "=E3") ("Auml" "\\\"{A}" nil "Ä" "Ae" "=C4" = "=C4") =20 > ("auml" "\\\"{a}" nil "ä" "ae" "=E4" "=E4") ("Aring" "\\AA{}" nil = =20 > "Å" "A" "=C5" "=C5") ("AA" "\\AA{}" nil "Å" "A" "=C5" "=C5")= =20 > ("aring" "\\aa{}" nil "å" "a" "=E5" "=E5") ("AElig" "\\AE{}" nil = =20 > "Æ" "AE" "=C6" "=C6") ("aelig" "\\ae{}" nil "æ" "ae" "=E6" = =20 > "=E6") ("Ccedil" "\\c{C}" nil "Ç" "C" "=C7" "=C7") ("ccedil" "\=20= > \c{c}" nil "ç" "c" "=E7" "=E7") ("Egrave" "\\`{E}" nil = "È" =20 > "E" "=C8" "=C8") ("egrave" "\\`{e}" nil "è" "e" "=E8" "=E8") =20= > ("Eacute" "\\'{E}" nil "É" "E" "=C9" "=C9") ("eacute" "\\'{e}" =20= > nil "é" "e" "=E9" "=E9") ("Ecirc" "\\^{E}" nil "Ê" "E" = "=CA" =20 > "=CA") ("ecirc" "\\^{e}" nil "ê" "e" "=EA" "=EA") ("Euml" = "\\\"{E}" =20 > nil "Ë" "E" "=CB" "=CB") ("euml" "\\\"{e}" nil "ë" "e" "=EB" = =20 > "=EB") ("Igrave" "\\`{I}" nil "Ì" "I" "=CC" "=CC") ("igrave" "\=20= > \`{i}" nil "ì" "i" "=EC" "=EC") ("Iacute" "\\'{I}" nil = "Í" =20 > "I" "=CD" "=CD") ("iacute" "\\'{i}" nil "í" "i" "=ED" "=ED") = ("Icirc" =20 > "\\^{I}" nil "Î" "I" "=CE" "=CE") ("icirc" "\\^{i}" nil = "î" =20 > "i" "=EE" "=EE") ("Iuml" "\\\"{I}" nil "Ï" "I" "=CF" "=CF") = ("iuml" "\\=20 > \"{i}" nil "ï" "i" "=EF" "=EF") ("Ntilde" "\\~{N}" nil "Ñ" = =20 > "N" "=D1" "=D1") ("ntilde" "\\~{n}" nil "ñ" "n" "=F1" "=F1") =20= > ("Ograve" "\\`{O}" nil "Ò" "O" "=D2" "=D2") ("ograve" "\\`{o}" =20= > nil "ò" "o" "=F2" "=F2") ("Oacute" "\\'{O}" nil "Ó" "O" =20= > "=D3" "=D3") ("oacute" "\\'{o}" nil "ó" "o" "=F3" "=F3") = ("Ocirc" "\=20 > \^{O}" nil "Ô" "O" "=D4" "=D4") ("ocirc" "\\^{o}" nil "ô" =20= > "o" "=F4" "=F4") ("Otilde" "\\~{O}" nil "Õ" "O" "=D5" "=D5") =20= > ("otilde" "\\~{o}" nil "õ" "o" "=F5" "=F5") ("Ouml" "\\\"{O}" = nil =20 > "Ö" "Oe" "=D6" "=D6") ("ouml" "\\\"{o}" nil "ö" "oe" "=F6" = "=F6") =20 > ("Oslash" "\\O" nil "Ø" "O" "=D8" "=D8") ("oslash" "\\o{}" nil =20= > "ø" "o" "=F8" "=F8") ("OElig" "\\OE{}" nil "Œ" "OE" "OE" =20= > "=8C") ...)) > (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) =20 > (font-lock-fontify-buffer) (forward-line 2) (buffer-substring =20 > (point) (progn ... ...))) > (unwind-protect (progn (org-mode) (org-create-dblock props) (org-=20 > update-dblock) (font-lock-fontify-buffer) (forward-line 2) (buffer-=20 > substring ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-=20= > buffer))) > (save-current-buffer (set-buffer temp-buffer) (unwind-protect =20 > (progn ... ... ... ... ... ...) (and ... ...))) > (with-current-buffer temp-buffer (unwind-protect =20 > (progn ... ... ... ... ... ...) (and ... ...))) > (let ((temp-buffer ...)) (with-current-buffer temp-buffer (unwind-=20 > protect ... ...))) > (with-temp-buffer (org-mode) (org-create-dblock props) (org-update-=20= > dblock) (font-lock-fontify-buffer) (forward-line 2) (buffer-=20 > substring (point) (progn ... ...))) > org-get-clocktable(:link t :maxlevel 2 :tstart 733965 :tend =20 > 733972 :scope agenda) > apply(org-get-clocktable (:link t :maxlevel 2 :tstart 733965 :tend =20= > 733972 :scope agenda)) > (setq tbl (apply (quote org-get-clocktable) p)) > (let ((org-agenda-files ...) (p org-agenda-clockreport-parameter-=20 > plist) tbl) (setq p (org-plist-delete p :block)) (setq p (plist-put =20= > p :tstart clocktable-start)) (setq p (plist-put p :tend clocktable-=20 > end)) (setq p (plist-put p :scope ...)) (setq tbl (apply ... p)) =20 > (insert tbl)) > (progn (let (... ... tbl) (setq p ...) (setq p ...) (setq p ...) =20 > (setq p ...) (setq tbl ...) (insert tbl))) > (if (and org-agenda-clockreport-mode clocktable-start) (progn =20 > (let ... ... ... ... ... ... ...))) > (when (and org-agenda-clockreport-mode clocktable-start) (let =20 > (... ... tbl) (setq p ...) (setq p ...) (setq p ...) (setq p ...) =20 > (setq tbl ...) (insert tbl))) > (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files =20 > thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day-=20 > cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos =20= > end-pos todayp nd wd clocktable-start clocktable-end) (setq org-=20 > agenda-redo-command (list ... ... start-day ndays)) (setq ndays (or =20= > ndays org-agenda-ndays) nd ndays) (while (> ndays 1) (push ... day-=20 > numbers) (setq ndays ...)) (setq day-numbers (nreverse day-numbers)) =20= > (setq clocktable-start (car day-numbers) clocktable-end (1+ ...)) =20 > (org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-=20 > day) (car day-numbers)) (org-set-local (quote org-include-all-loc) =20 > include-all) (org-set-local (quote org-agenda-span) (org-agenda-=20 > ndays-to-span nd)) (when (and ... ...) (setq files thefiles rtnall =20 > nil) (while ... ...) (when rtnall ... ... ... ...)) (unless org-=20 > agenda-compact-blocks (let* ... ... ...) (add-text-properties =20 > s ... ...) (org-agenda-mark-header-line s)) (while (setq d ...) =20 > (setq date ... wd ... s ...) (if ... ... ...) (setq files thefiles =20 > rtnall nil) (while ... ...) (if org-agenda-include-diary ...) =20 > (if ... ...)) (when (and org-agenda-clockreport-mode clocktable-=20 > start) (let ... ... ... ... ... ... ...)) (goto-char (point-min)) =20 > (or org-agenda-multi (org-fit-agenda-window)) (unless (and ... ...) =20= > (goto-char ...) (recenter -1) (if ... ...)) (goto-char (or start-pos =20= > 1)) (add-text-properties (point-min) (point-max) (quote ...)) (org-=20 > 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 =20 > org-agenda-custom-commands org-agenda-custom-commands-orig) =20 > (customize-variable ...)) ((equal keys "a") (call-=20 > interactively ...)) ((equal keys "s") (call-interactively ...)) =20 > ((equal keys "t") (call-interactively ...)) ((equal keys "T") (org-=20 > call-with-arg ... ...)) ((equal keys "m") (call-interactively ...)) =20= > ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e") =20 > (call-interactively ...)) ((equal keys "?") (org-tags-view nil =20 > "+FLAGGED") (org-add-hook ... ... t t)) ((equal keys "L") =20 > (unless ... ...) (unless restriction ... ...)) ((equal keys "#") =20 > (call-interactively ...)) ((equal keys "/") (call-=20 > interactively ...)) ((equal keys "!") (customize-variable ...)) (t =20 > (error "Invalid agenda key"))) > (let* ((prefix-descriptions nil) (org-agenda-window-setup ...) (org-=20= > agenda-custom-commands-orig org-agenda-custom-commands) (org-agenda-=20= > custom-commands ...) (buf ...) (bfn ...) entry key type match lprops =20= > ans) (unless org-agenda-overriding-restriction (unless ... ...) =20 > (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-=20 > begin nil) (move-marker org-agenda-restrict-end nil)) (put (quote =20 > org-agenda-redo-command) (quote org-lprops) nil) (setq org-agenda-=20 > last-dispatch-buffer (current-buffer)) (unless keys (setq ans ... =20 > keys ... restriction ...)) (when (and ... restriction) =20 > (put ... ... ...) (cond ... ...)) (cond (... ...) (... ... ...) =20 > (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) =20 > (... ...) (... ... ...) (... ... ...) (... ...) (... ...) (... ...) =20= > (t ...))) > (catch (quote exit) (let* (... ... ... ... ... ... entry key type =20 > match lprops ans) (unless org-agenda-overriding-=20 > restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-=20= > dispatch-buffer ...) (unless keys ...) (when ... ... ...) =20 > (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 =20 >> type C-a a to get the daily overview, but org gets stuck at =20 >> CONTENTS...done (see message buffer at the end). >> When I try f9-m (see Bernt's set-up), I get the following message =20 >> 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/=20= >> lisp/org-checklist.el (source)...done >> Loading c:/Documents and Settings/mheller/.emacs.d/org-mode/contrib/=20= >> lisp/org-depend.el (source)...done >> Loading c:/Documents and Settings/mheller/.emacs.d/org-mode/contrib/=20= >> lisp/org-expiry.el (source)...done >> Loading c:/Documents and Settings/mheller/.emacs.d/site-lisp/color-=20= >> theme-6.6.0/themes/color-theme-example.el (source)...done >> Loading c:/Documents and Settings/mheller/.emacs.d/site-lisp/color-=20= >> theme-6.6.0/themes/color-theme-library.el (source)...done >> Loading c:/Documents and Settings/mheller/.emacs.d/site-lisp/themes/=20= >> 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-=20 >> 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 > > _______________________________________________ > 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 - Carsten