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

Emacs 22 compatibility for calendar-date-style

Browse source
This commit is contained in:
Carsten Dominik 2009-11-10 21:11:24 +01:00
parent 04e9c05c64
commit 1bbd63a0e0
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-agenda.el
View file

@ -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)