From 5bbb97f3df9788646b8d48d60e8b8ea06566e05f Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Tue, 24 Jan 2023 12:16:19 +0300 Subject: [PATCH] org-fix-agenda-info: Fix Emacs <28 compatibility * lisp/org-agenda.el (org-fix-agenda-info): Do not use `string-pad' that is only available since Emacs 28. Instead, use the expression used as default value of `calendar-iso-date-display-form'. Reported-by: Aaron L. Zeng Link: https://orgmode.org/list/20230124025259.1301063-1-me@bcc32.com --- 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 2d194ad34..3dee80cf4 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3474,7 +3474,9 @@ This ensures the export commands can easily use it." (when (setq tmp (plist-get props 'date)) (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 'date tmp))) (when (setq tmp (plist-get props 'day))