From: Carsten Dominik <dominik@science.uva.nl>
Date: Fri, 17 Mar 2006 06:57:53 +0000 (+0000)
Subject: (org-read-date): Include subgroup 5 into
X-Git-Tag: emacs-pretest-22.0.90~3558
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff0ea6bf4f76af133bdad71b85f97b16bf5fcaa0;p=emacs.git

(org-read-date): Include subgroup 5 into
	replacement text.
---

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index db6c5611c2d..53adbea7833 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -4006,8 +4006,8 @@ used to insert the time stamp into the buffer to include the time."
 		month (string-to-number (match-string 3 ans))
 		day (string-to-number (match-string 4 ans)))
 	  (if (< year 100) (setq year (+ 2000 year)))
-	  (setq ans (replace-match (format "%04d-%02d-%02d" year month day)
-				   t t ans))))
+	  (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
+				   t nil ans))))
     (setq tl (parse-time-string ans)
 	  year (or (nth 5 tl) (string-to-number (format-time-string "%Y")))
 	  month (or (nth 4 tl) (string-to-number (format-time-string "%m")))