From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: Re: Problem with agenda and diary Date: Thu, 17 Mar 2011 13:27:58 -0400 Message-ID: <9609.1300382878@alphaville.dokosmarshall.org> References: <87sjul50xb.fsf@rochester.rr.com> <8762rhg8o8.fsf@member.fsf.org> <87vczhep74.fsf@member.fsf.org> Reply-To: nicholas.dokos@hp.com Return-path: Received: from [140.186.70.92] (port=41148 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q0Gzo-00026o-22 for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 13:28:31 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q0Gzh-0007kk-ND for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 13:28:19 -0400 Received: from vms173009pub.verizon.net ([206.46.173.9]:38669) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q0Gzh-0007k4-IC for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 13:28:17 -0400 Received: from alphaville.dokosmarshall.org ([unknown] [173.76.32.106]) by vms173009.mailsrvcs.net (Sun Java(tm) System Messaging Server 7u2-7.02 32bit (built Apr 16 2009)) with ESMTPA id <0LI7003TZPUM0X80@vms173009.mailsrvcs.net> for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 12:28:04 -0500 (CDT) In-reply-to: Message from Julien Danjou of "Thu, 17 Mar 2011 17:46:37 BST." 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: Tassilo Horn , emacs-orgmode@gnu.org Cc: nicholas.dokos@hp.com Julien Danjou wrote: > On Thu, Mar 17 2011, Tassilo Horn wrote: > > > Sure, here it is. There' nothing private in it, so we can stay on > > list. > > There's something I really do not understand in this bt. > > > Debugger entered--Lisp error: (wrong-type-argument integerp nil) > > substring(#(" Diary: St. Patrick's Day" 0 2 (org-category > > "diary" tags nil org-highest-priority 65 org-lowest-priority 67 > > time-of-day nil duration nil effort nil effort-minutes nil txt > > #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" > > extra "" dotime time fontified nil org-heading t type "diary" date > > (3 17 2011) face org-todo) 2 14 (org-category "diary" tags nil > > org-highest-priority 65 org-lowest-priority 67 time-of-day nil > > duration nil effort nil effort-minutes nil txt #("St. Patrick's Day" > > 0 17 (fontified nil org-heading t)) time "" extra "" dotime time > > fontified nil org-heading t type "diary" date (3 17 2011) face > > org-agenda-diary) 14 31 (org-heading t fontified nil org-category > > "diary" tags nil org-highest-priority 65 org-lowest-priority 67 > > time-of-day nil duration nil effort nil effort-minutes nil txt > > #("St. Patrick's Day" 0 17 (fontified nil org-heading t)) time "" > > extra "" dotime time type "diary" date (3 17 2011) face > > org-agenda-diary)) nil) > > This is (substring x (match-end 3)) > So the string `x' is well, the entry about St. Patrick. > > > (concat (substring x 0 (match-end 1)) (format > > org-agenda-todo-keyword-format (match-string 2 x)) (org-add-props > > #(" " 0 1 (done-face org-agenda-done undone-face org-warning face > > org-todo date (3 17 2011) type "diary" todo-state #("STARTED" 0 7 > > (fontified nil org-category "uni")) priority 1002 org-hd-marker > > # org-marker # > uni.org> help-echo "mouse-2 or RET jump to org file > > ~/repos/org/uni.org" org-complex-heading-regexp "^\\(\\*+\\)[ > > ]+\\(?:\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>\\)?\\(?:[ > > ]*\\(\\[#.\\]\\)\\)?[ ]*\\(.*?\\)\\(?:[ > > ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" org-todo-regexp > > "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\|DONE\\|CANCELLED\\)\\>" > > org-not-done-regexp "\\<\\(TODO\\|STARTED\\|DELEGATED\\|IDEA\\)\\>" > > mouse-face highlight dotime time extra "" time "" txt #("St. > > Patrick's Day" 0 17 (fontified nil org-heading t)) effort-minutes > > nil effort nil duration nil time-of-day nil org-lowest-priority 67 > > org-highest-priority 65 tags nil ...)) (text-properties-at 0 x)) > > (substring x (match-end 3))) > > Where the this is coming from ? > The code is: > > #+begin_src emacs-lisp > (setq x (concat (substring x 0 (match-end 1)) > (format org-agenda-todo-keyword-format > (match-string 2 x)) > (org-add-props " " (text-properties-at 0 x)) > (substring x (match-end 3))))) > #+end_src > > How the " " used as first arg of `org-add-props' can have so much > properties, like a todo-state set to "STARTED" and even a org-marker set > to a position in the uni.org file set? It's an empty string for Emacs's > sake. > > What's even more troubling is that this code is executed only if `re' is > not nil: > > #+begin_src emacs-lisp > (setq re (get-text-property 0 'org-todo-regexp x)) > (when (and re > &)) > #+end_src > > How `re' cannot be nil since there's no org-todo-regexp in `x' (the > entry about St. Patrick. > > Tassilo, if you can reproduce the backtrace, could you take a look at > the value of `re', `x' and `pl'? Maybe it can help, I'm a bit lost right > now. > I can reproduce it just by setting org-agenda-include-diary to t (Org-mode version 7.5 (release_7.5.60.g706a.dirty)) Here are the values in my case, just before it blows up: x is the St.Patrick's Day entry: #(" Diary: St. Patrick's Day" 0 2 (org-category #5="diary" tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #4=#("St. Patrick's Day" 0 17 (org-heading t)) time #1="" extra #1# dotime time org-heading t type #3="diary" date #2=(3 17 2011) face org-todo) 2 14 (org-category #5# tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #4# time #1# extra #1# dotime time org-heading t type #3# date #2# face org-agenda-diary) 14 31 (org-heading t org-category #5# tags nil org-highest-priority 65 org-lowest-priority 67 time-of-day nil duration nil effort nil effort-minutes nil txt #4# time #1# extra #1# dotime time type #3# date #2# face org-agenda-diary)) re is the empty string so indeed it is not nil: "" pl is 0 (match-end 3) is nil ==> boom HTH, Nick