|
@@ -829,7 +829,10 @@ modification time. Return time in `current-time' format."
|
|
|
(cond ((eq (org-element-type date) 'timestamp)
|
|
|
(org-time-string-to-time (org-element-interpret-data date)))
|
|
|
((let ((ts (and (consp date) (assq 'timestamp date))))
|
|
|
- (and ts (org-string-nw-p (org-element-interpret-data ts)))))
|
|
|
+ (and ts
|
|
|
+ (let ((value (org-element-interpret-data ts)))
|
|
|
+ (and (org-string-nw-p value)
|
|
|
+ (org-time-string-to-time value))))))
|
|
|
((file-exists-p file) (nth 5 (file-attributes file)))
|
|
|
(t (error "No such file: \"%s\"" file)))))
|
|
|
|