Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 19:37:58 +00:00
Code Issues Projects Releases Packages 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
Show stats 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")))