Mercurial > emacs
changeset 3868:a400864e4e37
* diary-ins.el (insert-cyclic-diary-entry): Fix date form.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Tue, 22 Jun 1993 03:23:38 +0000 |
| parents | 81178166a332 |
| children | 037e012d04b0 |
| files | lisp/=diary-ins.el |
| diffstat | 1 files changed, 14 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- 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.