From 20ee7b85ebc0e3e08805b1e9e3e824f50347340e Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Tue, 24 Jan 2023 21:08:49 +0300 Subject: [PATCH] fixup! org-fix-agenda-info: Fix Emacs <28 compatibility --- lisp/org-agenda.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 3dee80cf4..63107e8e6 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3482,7 +3482,9 @@ This ensures the export commands can easily use it." (when (setq tmp (plist-get props 'day)) (when (integerp tmp) (setq tmp (calendar-gregorian-from-absolute tmp))) (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 props (plist-put props 'day tmp)) (setq props (plist-put props 'agenda-day tmp)))