FIX other node property things that should have broken

This commit is contained in:
Nathan Dwarshuis 2024-08-25 17:26:18 -04:00
parent 96bd00f938
commit 06be547a0b
1 changed files with 2 additions and 2 deletions

View File

@ -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))))