diff options
| author | Carsten Dominik <dominik@science.uva.nl> | 2006-03-17 06:57:53 +0000 |
|---|---|---|
| committer | Carsten Dominik <dominik@science.uva.nl> | 2006-03-17 06:57:53 +0000 |
| commit | ff0ea6bf4f76af133bdad71b85f97b16bf5fcaa0 (patch) | |
| tree | acb1dfec3366474c7ce2136b964004c858cec35e /lisp | |
| parent | 327c2cb3ebf8c80baed00c02b9fafb65a719c3a5 (diff) | |
| download | emacs-ff0ea6bf4f76af133bdad71b85f97b16bf5fcaa0.tar.gz | |
(org-read-date): Include subgroup 5 into
replacement text.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
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"))) |