From 1bbd63a0e057e931e6fd7b4f2c52bad55ea91e23 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 10 Nov 2009 21:11:24 +0100 Subject: [PATCH] Emacs 22 compatibility for calendar-date-style --- lisp/org-agenda.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 708b193ff..85d529fe9 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6705,7 +6705,13 @@ the resulting entry will not be shown. When TEXT is empty, switch to (backward-char 1) (insert "\n") (require 'diary-lib) - (let ((calendar-date-display-form (diary-date-display-form))) + (let ((calendar-date-display-form + (if (if (boundp 'calendar-date-style) + (eq calendar-date-style 'european) + european-calendar-style) ; Emacs 22 + '(day " " month " " year) + '(month " " day " " year)))) + (insert (format "%%%%(diary-anniversary %s) %s" (calendar-date-string d1 nil t) text)))) ((eq type 'day)