# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 740719418 0
# Node ID a400864e4e370beeb48834f6b0faa35b93a8e7e1
# Parent  81178166a332eacad40612ca4e3d0b4aeef3db8f
        * diary-ins.el (insert-cyclic-diary-entry): Fix date form.

diff -r 81178166a332 -r a400864e4e37 lisp/=diary-ins.el
--- a/lisp/=diary-ins.el	Tue Jun 22 03:23:14 1993 +0000
+++ b/lisp/=diary-ins.el	Tue Jun 22 03:23:38 1993 +0000
@@ -147,16 +147,20 @@
   "Insert a cyclic diary entry starting at the date given by point.
 Prefix arg will make the entry nonmarking."
   (interactive "P")
-  (make-diary-entry
-   (format "%s(diary-cyclic %d %s)"
-           sexp-diary-entry-symbol
-           (calendar-read "Repeat every how many days: "
-                          '(lambda (x) (> x 0)))
-           (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-cyclic %d %s)"
+             sexp-diary-entry-symbol
+             (calendar-read "Repeat every how many days: "
+                            '(lambda (x) (> x 0)))
+             (calendar-date-string
+              (or (calendar-cursor-to-date)
+                  (error "Cursor is not on a date!"))
+              nil t))
+     arg)))
 
 (defun insert-hebrew-diary-entry (arg)
   "Insert a diary entry.