Fix calc-eval date(<timestamp>)

This commit is contained in:
Benjamin Andresen 2011-07-09 17:47:41 +02:00 committed by Bastien Guerry
parent f65e63d094
commit a493b4d489
1 changed files with 1 additions and 0 deletions

View File

@ -3213,6 +3213,7 @@ For example: 28 -> AB."
(sec (string-to-number (match-string 3 s))))
(+ (* hour 3600) (* min 60) sec)))
((and (stringp s)
(not (string-match org-ts-regexp-both s))
(string-match "\\([0-9]+\\):\\([0-9]+\\)" s))
(let ((min (string-to-number (match-string 1 s)))
(sec (string-to-number (match-string 2 s))))