martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(org-read-date): Include subgroup 5 into

Browse Source 
replacement text.
This commit is contained in:
Carsten Dominik
2006-03-17 06:57:53 +00:00
parent 327c2cb3eb
commit ff0ea6bf4f
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/textmodes/org.el
View File

@@ -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")))