diff -u /home/guerry/elisp/testing/org/org.el /home/guerry/elisp/testing/bzg/org.el --- /home/guerry/elisp/testing/org/org.el 2007-10-24 03:09:10.000000000 +0100 +++ /home/guerry/elisp/testing/bzg/org.el 2007-10-24 03:08:00.000000000 +0100 @@ -13748,7 +13748,8 @@ (goto-char (match-end 1)) (setq col (current-column)) (goto-char (match-end 0)) - (if (eobp) (insert "\n") (forward-char 1)) + (if (eobp) (insert "\n")) + (forward-char 1) (if (and (not (looking-at outline-regexp)) (looking-at (concat "[^\r\n]*?" org-keyword-time-regexp "[^\r\n]*")) @@ -16474,7 +16475,7 @@ (defun org-read-date-get-relative (s today default) "Check string S for special relative date string. -TODAY and DEFAULT are ionternal times, for today and for a default. +TODAY and DEFAULT are internal times, for today and for a default. Return shift list (N what def-flag) WHAT is \"d\", \"w\", \"m\", or \"y\" for day. week, month, year. N is the number if WHATs to shift @@ -16482,7 +16483,7 @@ the DEFAULT date rather than TODAY." (when (string-match (concat - "\\`[ \t]*\\([-+]\\{1,2\\}\\)?" + "\\`[ \t]*[-+]+\\(\\{1,2\\}\\)?" "\\([0-9]+\\)?" "\\([dwmy]\\|\\(" (mapconcat 'car parse-time-weekdays "\\|") "\\)\\)?" "\\([ \t]\\|$\\)") s) Diff finished. Wed Oct 24 03:09:29 2007