mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 18:32:53 +00:00
Emacs 22 compatibility for calendar-date-style
This commit is contained in:
parent
04e9c05c64
commit
1bbd63a0e0
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue