On 17 Mar 2011, nicholas.do...@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:
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 ...) time
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 s1
...) (if s2 ...) (when ... ...) (when s2 ...)) (when (string-match ... txt) (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-bracket-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 tags) (mapcar ...
tags) (quote org-highest-priority) org-highest-priority (quote
org-lowest-priority) org-lowest-priority (quote time-of-day) time-of-day (quote
duration) duration (quote effort) effort (quote effort-minutes) neffort (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 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
... extra ... category ... thecategory ...) (if ... ... ...) (setq rtn ...)
(remove-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)))
(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-agenda-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
... extra ... category ... thecategory ...) (if ... ... ...) (setq rtn ...)
(remove-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-add-props x (text-properties-at ... x) (quote type) "diary" (quote date)
date (quote face) (quote org-agenda-diary)))("")
