mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-26 08:02:52 +00:00
Code Releases Activity

Merge branch 'bugfix'

Browse source
This commit is contained in:
Ihor Radchenko 2023-01-24 21:20:30 +03:00
parent 7ad7796546 20ee7b85eb
commit a6c882949e
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

@ -3482,7 +3482,9 @@ This ensures the export commands can easily use it."
(when (setq tmp (plist-get props 'day)) (when (setq tmp (plist-get props 'day))
(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 'day tmp)) (setq props (plist-put props 'day tmp))
(setq props (plist-put props 'agenda-day tmp))) (setq props (plist-put props 'agenda-day tmp)))