[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)


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))) 
  (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))
  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!


: Eric S Fraga, GnuPG: 0xC89193D8FFFCF67D
: in Emacs and Org release_7.9.1-452-g7d8a0c

reply via email to

[Prev in Thread] Current Thread [Next in Thread]