From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dan Griswold Subject: Re: Problem with agenda and diary Date: Thu, 17 Mar 2011 16:37:50 -0400 Message-ID: <87oc59fppd.fsf@rochester.rr.com> References: <87sjul50xb.fsf@rochester.rr.com> <8762rhg8o8.fsf@member.fsf.org> <87vczhep74.fsf@member.fsf.org> <9609.1300382878@alphaville.dokosmarshall.org> <87r5a5k3vj.fsf@member.fsf.org> <87fwql8t2m.fsf@rochester.rr.com> <5887.1300391111@alphaville.usa.hp.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from [140.186.70.92] (port=44981 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q0JxM-0002M7-CS for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 16:38:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q0JxK-00022M-Rk for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 16:38:03 -0400 Received: from lo.gmane.org ([80.91.229.12]:46144) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q0JxK-00021x-IA for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 16:38:02 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1Q0JxJ-00055z-AE for emacs-orgmode@gnu.org; Thu, 17 Mar 2011 21:38:01 +0100 Received: from 74-47-146-218.dsl1-fairport.roch.ny.frontiernet.net ([74.47.146.218]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 17 Mar 2011 21:38:01 +0100 Received: from dgriswol by 74-47-146-218.dsl1-fairport.roch.ny.frontiernet.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 17 Mar 2011 21:38:01 +0100 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: emacs-orgmode@gnu.org --=-=-= On 17 Mar 2011, nicholas.dokos@hp.com wrote: > Can you provide a backtrace? See section 1.4, "Feedback", of the Org > manual on how to produce a backtrace. Sure. But I don't want to include absolutely everything, because of personal calendar entries. Here it is, back to the point where it gets too specific to my life: --=-=-= Content-Disposition: attachment; filename=backtrace_edited Content-Transfer-Encoding: quoted-printable Debugger entered--Lisp error: (args-out-of-range -1 0) add-text-properties(0 -1 (org-heading t) "") (let* ((category ...) (category-icon ...) (category-icon ...) (tag ...) t= ime effort neffort (ts ...) (time-of-day ...) stamp plain s0 s1 s2 rtn srp = l duration thecategory) (and (org-mode-p) buffer-file-name (add-to-list ...= buffer-file-name)) (when (and dotime time-of-day) (when ... ... ...) (if s= 1 ...) (if s2 ...) (when ... ...) (when s2 ...)) (when (string-match ... tx= t) (if ... ... ...)) (when (org-mode-p) (setq effort ...) (when effort ...)= ) (when remove-re (while ... ...)) (add-text-properties 0 (1- ...) (quote .= ..) txt) (setq time (cond ... ... ...) extra (or ... "") category (if ... .= .. category) thecategory (copy-sequence category)) (if (string-match org-br= acket-link-regexp category) (progn ... ...) (if ... ...)) (setq rtn (concat= ... txt)) (remove-text-properties 0 (length rtn) (quote ...) rtn) (org-add= -props rtn nil (quote org-category) (if thecategory ... category) (quote ta= gs) (mapcar ... tags) (quote org-highest-priority) org-highest-priority (qu= ote org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-da= y (quote duration) duration (quote effort) effort (quote effort-minutes) ne= ffort (quote txt) txt (quote time) time (quote extra) extra (quote dotime) = dotime)) (progn (if (string-match "^ +" txt) (setq txt ...)) (setq txt (org-agenda= -fix-displayed-tags txt tags org-agenda-show-inherited-tags org-agenda-hide= -tags-regexp)) (let* (... ... ... ... time effort neffort ... ... stamp pla= in s0 s1 s2 rtn srp l duration thecategory) (and ... buffer-file-name ...) = (when ... ... ... ... ... ...) (when ... ...) (when ... ... ...) (when remo= ve-re ...) (add-text-properties 0 ... ... txt) (setq time ... extra ... cat= egory ... thecategory ...) (if ... ... ...) (setq rtn ...) (remove-text-pro= perties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ... org-highe= st-priority ... org-lowest-priority ... time-of-day ... duration ... effort= ... neffort ... txt ... time ... extra ... dotime))) (unwind-protect (progn (if ... ...) (setq txt ...) (let* ... ... ... ... = ... ... ... ... ... ... ... ...)) (set-match-data save-match-data-internal = (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ... ... ...)= (set-match-data save-match-data-internal ...))) (save-match-data (if (string-match "^ +" txt) (setq txt ...)) (setq txt (= org-agenda-fix-displayed-tags txt tags org-agenda-show-inherited-tags org-a= genda-hide-tags-regexp)) (let* (... ... ... ... time effort neffort ... ...= stamp plain s0 s1 s2 rtn srp l duration thecategory) (and ... buffer-file-= name ...) (when ... ... ... ... ... ...) (when ... ...) (when ... ... ...) = (when remove-re ...) (add-text-properties 0 ... ... txt) (setq time ... ext= ra ... category ... thecategory ...) (if ... ... ...) (setq rtn ...) (remov= e-text-properties 0 ... ... rtn) (org-add-props rtn nil ... ... ... ... ...= org-highest-priority ... org-lowest-priority ... time-of-day ... duration = ... effort ... neffort ... txt ... time ... extra ... dotime))) org-format-agenda-item("" "" "Diary" nil time) (setq x (org-format-agenda-item "" x "Diary" nil (quote time))) (lambda (x) (setq x (org-format-agenda-item "" x "Diary" nil ...)) (org-a= dd-props x (text-properties-at ... x) (quote type) "diary" (quote date) dat= e (quote face) (quote org-agenda-diary)))("") --=-=-=--