FIX other node property things that should have broken
This commit is contained in:
parent
96bd00f938
commit
06be547a0b
|
@ -1980,7 +1980,7 @@ If ARG is non-nil use long timestamp format."
|
|||
(org-ml-unixtime-to-time-short ut))
|
||||
(org-ml-build-timestamp!)
|
||||
(org-ml-to-string)
|
||||
(org-ml-build-node-property org-x-prop-expire))))
|
||||
(list org-x-prop-expire))))
|
||||
(org-ml-update-this-headline*
|
||||
(org-ml-headline-map-node-properties* (cons np it) it)))))
|
||||
|
||||
|
@ -1988,7 +1988,7 @@ If ARG is non-nil use long timestamp format."
|
|||
"Set days-to-live of the current headline."
|
||||
(interactive)
|
||||
(let ((np (->> (org-x--read-number-from-minibuffer "Days to live" t)
|
||||
(org-ml-build-node-property org-x-prop-days-to-live))))
|
||||
(list org-x-prop-days-to-live))))
|
||||
(org-ml-update-this-headline*
|
||||
(org-ml-headline-map-node-properties* (cons np it) it))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue