diff options
| author | Carsten Dominik | 2006-03-17 06:57:53 +0000 |
|---|---|---|
| committer | Carsten Dominik | 2006-03-17 06:57:53 +0000 |
| commit | ff0ea6bf4f76af133bdad71b85f97b16bf5fcaa0 (patch) | |
| tree | acb1dfec3366474c7ce2136b964004c858cec35e | |
| parent | 327c2cb3ebf8c80baed00c02b9fafb65a719c3a5 (diff) | |
| download | emacs-ff0ea6bf4f76af133bdad71b85f97b16bf5fcaa0.tar.gz emacs-ff0ea6bf4f76af133bdad71b85f97b16bf5fcaa0.zip | |
(org-read-date): Include subgroup 5 into
replacement text.
| -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." | |||
| 4006 | month (string-to-number (match-string 3 ans)) | 4006 | month (string-to-number (match-string 3 ans)) |
| 4007 | day (string-to-number (match-string 4 ans))) | 4007 | day (string-to-number (match-string 4 ans))) |
| 4008 | (if (< year 100) (setq year (+ 2000 year))) | 4008 | (if (< year 100) (setq year (+ 2000 year))) |
| 4009 | (setq ans (replace-match (format "%04d-%02d-%02d" year month day) | 4009 | (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day) |
| 4010 | t t ans)))) | 4010 | t nil ans)))) |
| 4011 | (setq tl (parse-time-string ans) | 4011 | (setq tl (parse-time-string ans) |
| 4012 | year (or (nth 5 tl) (string-to-number (format-time-string "%Y"))) | 4012 | year (or (nth 5 tl) (string-to-number (format-time-string "%Y"))) |
| 4013 | month (or (nth 4 tl) (string-to-number (format-time-string "%m"))) | 4013 | month (or (nth 4 tl) (string-to-number (format-time-string "%m"))) |