Mercurial > emacs
changeset 69531:b1e915361a06
(org-read-date): Include subgroup 5 into
replacement text.
| author | Carsten Dominik <dominik@science.uva.nl> |
|---|---|
| date | Fri, 17 Mar 2006 06:57:53 +0000 |
| parents | 408a60784b2e |
| children | fefd49c78feb |
| files | lisp/textmodes/org.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/org.el Fri Mar 17 00:59:05 2006 +0000 +++ b/lisp/textmodes/org.el Fri Mar 17 06:57:53 2006 +0000 @@ -4006,8 +4006,8 @@ 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")))