emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals-release/org 20ee7b85eb: fixup! org-fix-agenda-info: Fix


From: ELPA Syncer
Subject: [elpa] externals-release/org 20ee7b85eb: fixup! org-fix-agenda-info: Fix Emacs <28 compatibility
Date: Tue, 24 Jan 2023 13:58:15 -0500 (EST)

branch: externals-release/org
commit 20ee7b85ebc0e3e08805b1e9e3e824f50347340e
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    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 3dee80cf4f..63107e8e6a 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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]