[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] [bug] org-agenda-diary-entry fails on redisplay of the agenda
From: |
Eric Fraga |
Subject: |
[O] [bug] org-agenda-diary-entry fails on redisplay of the agenda |
Date: |
Sun, 30 Sep 2012 19:24:35 +0930 |
User-agent: |
Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2.50 (gnu/linux) |
Hello,
sometime in the past few weeks, something has changed that has led
to problems inserting items in my diary from the agenda view, using
"i d" (org-agenda-diary-entry). The traceback is
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument sequencep t)
mapcar((lambda (tg) (if (or (and hide-re (string-match hide-re tg)) (and (not
add-inherited) (get-text-property 0 (quote inherited) tg))) nil tg)) t)
(delq nil (mapcar (function (lambda (tg) (if (or (and hide-re (string-match
hide-re tg)) (and (not add-inherited) (get-text-property 0 ... tg))) nil tg)))
tags))
(setq tags (delq nil (mapcar (function (lambda (tg) (if (or (and hide-re ...)
(and ... ...)) nil tg))) tags)))
(progn (if (string-match "\\([
]+\\)\\(:[[:alnum:address@hidden:]+:\\)[ ]*$" txt) (setq txt (substring
txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (function (lambda
(tg) (if (or ... ...) nil tg))) tags))) (if tags (progn (let ((have-i
(get-text-property 0 (quote inherited) (car tags))) i) (setq txt (concat txt "
:" (mapconcat (function ...) tags ":") (if have-i "::" ":")))))))
(if (or add-inherited hide-re) (progn (if (string-match "\\([
]+\\)\\(:[[:alnum:address@hidden:]+:\\)[ ]*$" txt) (setq txt (substring
txt 0 (match-beginning 0)))) (setq tags (delq nil (mapcar (function (lambda
(tg) (if ... nil tg))) tags))) (if tags (progn (let ((have-i (get-text-property
0 ... ...)) i) (setq txt (concat txt " :" (mapconcat ... tags ":") (if have-i
"::" ":"))))))))
org-agenda-fix-displayed-tags(#("test 3" 0 6 (org-heading t)) t t nil)
(setq txt (org-agenda-fix-displayed-tags txt tags
org-agenda-show-inherited-tags org-agenda-hide-tags-regexp))
...
org-agenda-format-item(nil #("test 3" 0 6 (org-heading t)) nil nil t)
org-agenda-add-entry-to-org-agenda-diary-file(day #("test 3" 0 6 (org-heading
t)) (9 30 2012))
...
org-agenda-diary-entry-in-org-file()
...
org-agenda-diary-entry()
call-interactively(org-agenda-diary-entry nil nil)
--8<---------------cut here---------------end--------------->8---
I've cut out some of the lines.
I cannot reproduce this with a minimal emacs so there is something in my
configuration that is causing the problem, I guess. I should note that
I have set org-agenda-diary-file to point to an org file instead of the default
Emacs diary file and that file is based on a date-tree layout.
The actual entry does get inserted in the diary; it is the redisplay of
the agenda that fails.
Inserting into this diary has worked for yonks.
>From vc-annotate, I can see that some lines near where the error occurs
were changed in the past month with commit 8365b738. However, these
don't appear to be anything relevant; not that I can really say this
with any certainty, mind you :(. Further searching doesn't highlight
anything obvious either.
Any advice or help would be welcome!
Thanks,
eric
--
: Eric S Fraga, GnuPG: 0xC89193D8FFFCF67D
: in Emacs 24.2.50.1 and Org release_7.9.1-452-g7d8a0c
- [O] [bug] org-agenda-diary-entry fails on redisplay of the agenda,
Eric Fraga <=