ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'bugfix'

This commit is contained in:
Ihor Radchenko 2023-01-24 12:21:05 +03:00
parent 6b15897a56 5bbb97f3df
commit 1f9249eb6e
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-agenda.el
View File

@ -3474,7 +3474,9 @@ This ensures the export commands can easily use it."
(when (setq tmp (plist-get props 'date)) (when (setq tmp (plist-get props 'date))
(when (integerp tmp) (setq tmp (calendar-gregorian-from-absolute tmp))) (when (integerp tmp) (setq tmp (calendar-gregorian-from-absolute tmp)))
(let ((calendar-date-display-form (let ((calendar-date-display-form
'(year "-" (string-pad month 2 ?0 'left) "-" (string-pad day 2 ?0 'left)))) '((format "%s-%.2d-%.2d" year
(string-to-number month)
(string-to-number day)))))
(setq tmp (calendar-date-string tmp))) (setq tmp (calendar-date-string tmp)))
(setq props (plist-put props 'date tmp))) (setq props (plist-put props 'date tmp)))
(when (setq tmp (plist-get props 'day)) (when (setq tmp (plist-get props 'day))