diff options
author | Kyle Meyer <kyle@kyleam.com> | 2019-08-18 12:26:05 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2019-08-18 17:36:13 -0400 |
commit | a23d0225abd829ae031115803749e700bb470278 (patch) | |
tree | 7b9d8d27ce28a419d51ac78a79272ef8bb65f7a9 | |
parent | 74bf99502d1c4c68fd3b903bfa5cc9dffb7c4c47 (diff) | |
download | org-mode-a23d0225abd829ae031115803749e700bb470278.tar.gz |
org-time-stamp: Simplify encode-time call
* lisp/org.el (org-time-stamp): Use org-time-string-to-time.
This should have been applied with a6cead0d2 (Backport commit
476066e89 from Emacs, 2019-02-22).
-rw-r--r-- | lisp/org.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 5217048..6f42bc7 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -16045,8 +16045,7 @@ non-nil." ((org-at-timestamp-p 'lax) (match-string 0)))) ;; Default time is either the timestamp at point or today. ;; When entering a range, only the range start is considered. - (default-time (and ts - (apply #'encode-time (org-parse-time-string ts)))) + (default-time (and ts (org-time-string-to-time ts))) (default-input (and ts (org-get-compact-tod ts))) (repeater (and ts (string-match "\\([.+-]+[0-9]+[hdwmy] ?\\)+" ts) |