org-agenda-list (from git) giving "args-out-of-range error"

[Karl Fogel <kfogel@red-bean.com>]

[-- Attachment #1: Type: text/plain, Size: 1724 bytes --]

[please keep me CC'd, as I'm a digest subscriber on this list]

Suddenly "C-c a a" (`org-agenda-list') has started giving me this error:

   args-out-of-range #("  ots:        " 0 14 (org-category ...

Backtrace attached.  This is with today's bleeding edge Org Mode code,
pulled from git://orgmode.org/org-mode.git.

I think the bug must be content-sensitive, since the only thing that
changed was the content of some of my .org files (the ones listed in
`org-agenda-files').  After encountering the bug, I upgraded to
bleeding-edge org-mode, and saw that the bug reproduces there too.

I can't find much on the Net about this problem, though this expired
StackOverflow question seems to be the same thing:

  http://stackoverflow.com/questions/9460109/when-i-press-c-c-a-a-to-view-agenda-i-get-a-args-out-of-range-error

That question is gone from StackOverflow now, but Google's cache still
has it:

  http://webcache.googleusercontent.com/search?q=cache:QsaNSsILOegJ:stackoverflow.com/questions/9460109/when-i-press-c-c-a-a-to-view-agenda-i-get-a-args-out-of-range-error+emacs+org-mode+agenda+%22args-out-of-range%22&cd=5&hl=en&ct=clnk&gl=us

There are also some reports of org agenda exports failing similarly, but
I'm not doing an export.  And there's this, about how blank headlines
cause a similar error:

  http://comments.gmane.org/gmane.emacs.orgmode/46444

Oh, I just found this -- it might be relevant:

  http://article.gmane.org/gmane.emacs.orgmode/41045/match=agenda+args+out+of+range

I'll see if I can reproduce what that person found.

Anyway, I can do Elisp debugging, and will start to do that unless
someone here recognizes this problem and can add some information.

Backtrace attached below.

-Karl


[-- Attachment #2: Emacs Lisp backtrace from failed org-agenda-list invocation (redacted for confidentiality). --]
[-- Type: text/plain, Size: 2275 bytes --]

(I had to rectangularly truncate this backtrace to avoid showing
confidential information, sorry, but the call stack is there anyway.)

Debugger entered--Lisp error: (args-out-of-range #("  ots:        " 0 14 (org-c
  match-string(2 #("  ots:        " 0 14 (org-category "ots" tags nil org-highe
  (org-get-todo-face (match-string 2 x))                                       
  (list (quote face) (org-get-todo-face (match-string 2 x)))                   
  (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (list (qu
  (progn (add-text-properties (or (match-end 1) (match-end 0)) (match-end 0) (l
  (if (and re (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)") x (or pl
  (when (and re (equal (string-match (concat "\\(\\.*\\)" re "\\( +\\)") x (or 
  (let ((pl (text-property-any 0 (length x) (quote org-heading) t x))) (setq re
  (if (eq x (quote line)) (save-excursion (beginning-of-line 1) (setq re (org-g
  (let ((org-done-keywords org-done-keywords-for-agenda) (case-fold-search nil)
  org-agenda-highlight-todo(#("  ots:        " 0 14 (org-category "ots" tags ni
  mapcar(org-agenda-highlight-todo (#("  ots:        TODO  Karl to check in w/ 
  (setq list (mapcar (quote org-agenda-highlight-todo) list))                  
  org-finalize-agenda-entries((#("  ots:        TODO  Karl to check in w/ Ray n
  (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-maybe rtnall n
  (if rtnall (insert (org-finalize-agenda-entries (org-agenda-add-time-grid-may
  (progn (setq day-cnt (1+ day-cnt)) (insert (if (stringp org-agenda-format-dat
  (if (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) 
  (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-from-absolut
  (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-s
  org-agenda-list(nil)                                                         
  call-interactively(org-agenda-list)                                          
  (cond ((setq entry (assoc keys org-agenda-custom-commands)) (if (or (symbolp 
  (let* ((prefix-descriptions nil) (org-agenda-window-setup (if (equal (buffer-
  (catch (quote exit) (let* ((prefix-descriptions nil) (org-agenda-window-setup
  org-agenda(nil)
  call-interactively(org-agenda nil nil)