# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 732069799 0
# Node ID 878f67b482b1b93ea40c7fa27e02efdd72bdb87e
# Parent  c84b2198f633b4b233c9742c00aa274cab6e0191
        * diary-insert.el (insert-anniversary-diary-entry,
        insert-block-diary-entry): Fix calendar-date-display-form used.

diff -r c84b2198f633 -r 878f67b482b1 lisp/=diary-ins.el
--- a/lisp/=diary-ins.el	Sat Mar 13 23:31:35 1993 +0000
+++ b/lisp/=diary-ins.el	Sun Mar 14 00:43:19 1993 +0000
@@ -103,20 +103,28 @@
   "Insert an anniversary diary entry for the date given by point.
 Prefix arg will make the entry nonmarking."
   (interactive "P")
-  (make-diary-entry
-   (format "%s(diary-anniversary %s)"
-           sexp-diary-entry-symbol
-           (calendar-date-string
-            (or (calendar-cursor-to-date)
-                (error "Cursor is not on a date!"))
-            nil t))
-   arg))
+  (let* ((calendar-date-display-form
+          (if european-calendar-style
+              '(day " " month " " year)
+            '(month " " day " " year))))
+    (make-diary-entry
+     (format "%s(diary-anniversary %s)"
+             sexp-diary-entry-symbol
+             (calendar-date-string
+              (or (calendar-cursor-to-date)
+                  (error "Cursor is not on a date!"))
+              nil t))
+     arg)))
 
 (defun insert-block-diary-entry (arg)
   "Insert a block diary entry for the days between the point and marked date.
 Prefix arg will make the entry nonmarking."
   (interactive "P")
-  (let* ((cursor (or (calendar-cursor-to-date)
+  (let* ((calendar-date-display-form
+          (if european-calendar-style
+              '(day " " month " " year)
+            '(month " " day " " year)))
+         (cursor (or (calendar-cursor-to-date)
                      (error "Cursor is not on a date!")))
          (mark (or (car calendar-mark-ring)
                    (error "No mark set in this buffer")))