diff options
| -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"))) |