Mercurial > emacs
changeset 2166:878f67b482b1
* diary-insert.el (insert-anniversary-diary-entry,
insert-block-diary-entry): Fix calendar-date-display-form used.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Sun, 14 Mar 1993 00:43:19 +0000 |
| parents | c84b2198f633 |
| children | c4bed8692d6f |
| files | lisp/=diary-ins.el |
| diffstat | 1 files changed, 17 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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")))