Re: Re: Args out of range when creating TODOs

[Carsten Dominik <carsten.dominik@gmail.com>]

There is a lot of code happening between the moment of the match, and  
the
replacement.  So far none of this code seems to have had the effect of
changing the match data, I have been careful to avoid this.  However,
in your case it seems that some internal code does change it.

I believe the following patch should fix this, can you please try it?

- Carsten


--- org.el.orig	2007-10-25 12:45:25.000000000 +0200
+++ org.el	2007-10-25 12:45:38.000000000 +0200
@@ -13412,7 +13412,8 @@
        (if (looking-at outline-regexp) (goto-char (1- (match-end 0))))
        (or (looking-at (concat " +" org-todo-regexp " *"))
	  (looking-at " *"))
-      (let* ((startpos (line-beginning-position))
+      (let* ((match-data (match-data))
+	     (startpos (line-beginning-position))
	     (logging (save-match-data (org-entry-get nil "LOGGING" t)))
	     (org-log-done (org-parse-local-options logging 'org-log-done))
	     (org-log-repeat (org-parse-local-options logging 'org-log-repeat))
@@ -13496,6 +13497,7 @@
	      ;; fail silently
	      (message "TODO state change from %s to %s blocked" this state)
	      (throw 'exit nil))))
+	(store-match-data match-data)
	(replace-match next t t)
	(unless (pos-visible-in-window-p hl-pos)
	  (message "TODO state changed to %s" (org-trim next)))