emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Carsten Dominik <carsten.dominik@gmail.com>
To: Erik Iverson <eriki@ccbr.umn.edu>
Cc: Markus Heller <hellerm2@gmail.com>, emacs-orgmode@gnu.org
Subject: Re: Help: Agenda not working anymore
Date: Mon, 12 Jul 2010 19:16:07 +0200	[thread overview]
Message-ID: <EFC7DF64-7CDF-4E22-9B17-31D6FC50D54B@gmail.com> (raw)
In-Reply-To: <4C3B4D1C.9050708@ccbr.umn.edu>

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]" "\ 
\)")
             `(0 (progn (compose-region (match-beginning 1) (- (match- 
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  
> 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  
> "&Agrave;" "A" "À" "À") ("agrave" "\\`{a}" nil "&agrave;" "a" "à"  
> "à") ("Aacute" "\\'{A}" nil "&Aacute;" "A" "Á" "Á") ("aacute" "\ 
> \'{a}" nil "&aacute;" "a" "á" "á") ("Acirc" "\\^{A}" nil "&Acirc;"  
> "A" "Â" "Â") ("acirc" "\\^{a}" nil "&acirc;" "a" "â" "â") ("Atilde"  
> "\\~{A}" nil "&Atilde;" "A" "Ã" "Ã") ("atilde" "\\~{a}" nil  
> "&atilde;" "a" "ã" "ã") ("Auml" "\\\"{A}" nil "&Auml;" "Ae" "Ä" "Ä")  
> ("auml" "\\\"{a}" nil "&auml;" "ae" "ä" "ä") ("Aring" "\\AA{}" nil  
> "&Aring;" "A" "Å" "Å") ("AA" "\\AA{}" nil "&Aring;" "A" "Å" "Å")  
> ("aring" "\\aa{}" nil "&aring;" "a" "å" "å") ("AElig" "\\AE{}" nil  
> "&AElig;" "AE" "Æ" "Æ") ("aelig" "\\ae{}" nil "&aelig;" "ae" "æ"  
> "æ") ("Ccedil" "\\c{C}" nil "&Ccedil;" "C" "Ç" "Ç") ("ccedil" "\ 
> \c{c}" nil "&ccedil;" "c" "ç" "ç") ("Egrave" "\\`{E}" nil "&Egrave;"  
> "E" "È" "È") ("egrave" "\\`{e}" nil "&egrave;" "e" "è" "è")  
> ("Eacute" "\\'{E}" nil "&Eacute;" "E" "É" "É") ("eacute" "\\'{e}"  
> nil "&eacute;" "e" "é" "é") ("Ecirc" "\\^{E}" nil "&Ecirc;" "E" "Ê"  
> "Ê") ("ecirc" "\\^{e}" nil "&ecirc;" "e" "ê" "ê") ("Euml" "\\\"{E}"  
> nil "&Euml;" "E" "Ë" "Ë") ("euml" "\\\"{e}" nil "&euml;" "e" "ë"  
> "ë") ("Igrave" "\\`{I}" nil "&Igrave;" "I" "Ì" "Ì") ("igrave" "\ 
> \`{i}" nil "&igrave;" "i" "ì" "ì") ("Iacute" "\\'{I}" nil "&Iacute;"  
> "I" "Í" "Í") ("iacute" "\\'{i}" nil "&iacute;" "i" "í" "í") ("Icirc"  
> "\\^{I}" nil "&Icirc;" "I" "Î" "Î") ("icirc" "\\^{i}" nil "&icirc;"  
> "i" "î" "î") ("Iuml" "\\\"{I}" nil "&Iuml;" "I" "Ï" "Ï") ("iuml" "\\ 
> \"{i}" nil "&iuml;" "i" "ï" "ï") ("Ntilde" "\\~{N}" nil "&Ntilde;"  
> "N" "Ñ" "Ñ") ("ntilde" "\\~{n}" nil "&ntilde;" "n" "ñ" "ñ")  
> ("Ograve" "\\`{O}" nil "&Ograve;" "O" "Ò" "Ò") ("ograve" "\\`{o}"  
> nil "&ograve;" "o" "ò" "ò") ("Oacute" "\\'{O}" nil "&Oacute;" "O"  
> "Ó" "Ó") ("oacute" "\\'{o}" nil "&oacute;" "o" "ó" "ó") ("Ocirc" "\ 
> \^{O}" nil "&Ocirc;" "O" "Ô" "Ô") ("ocirc" "\\^{o}" nil "&ocirc;"  
> "o" "ô" "ô") ("Otilde" "\\~{O}" nil "&Otilde;" "O" "Õ" "Õ")  
> ("otilde" "\\~{o}" nil "&otilde;" "o" "õ" "õ") ("Ouml" "\\\"{O}" nil  
> "&Ouml;" "Oe" "Ö" "Ö") ("ouml" "\\\"{o}" nil "&ouml;" "oe" "ö" "ö")  
> ("Oslash" "\\O" nil "&Oslash;" "O" "Ø" "Ø") ("oslash" "\\o{}" nil  
> "&oslash;" "o" "ø" "ø") ("OElig" "\\OE{}" nil "&OElig;" "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
>
> _______________________________________________
> 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

      reply	other threads:[~2010-07-12 17:16 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-07-12 16:29 Help: Agenda not working anymore Markus Heller
2010-07-12 17:05 ` Markus Heller
2010-07-12 18:18   ` Markus Heller
2010-07-12 18:34     ` Markus Heller
2010-07-16 17:26       ` David Maus
2010-07-16 18:03         ` Markus Heller
2010-07-12 17:13 ` Erik Iverson
2010-07-12 17:16   ` Carsten Dominik [this message]

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=EFC7DF64-7CDF-4E22-9B17-31D6FC50D54B@gmail.com \
    --to=carsten.dominik@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=eriki@ccbr.umn.edu \
    --cc=hellerm2@gmail.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).