Mercurial > emacs
comparison lisp/=diary-ins.el @ 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 | cac023fe9d13 |
| children | 6bcdc3ad365d |
comparison
equal
deleted
inserted
replaced
| 3867:81178166a332 | 3868:a400864e4e37 |
|---|---|
| 145 | 145 |
| 146 (defun insert-cyclic-diary-entry (arg) | 146 (defun insert-cyclic-diary-entry (arg) |
| 147 "Insert a cyclic diary entry starting at the date given by point. | 147 "Insert a cyclic diary entry starting at the date given by point. |
| 148 Prefix arg will make the entry nonmarking." | 148 Prefix arg will make the entry nonmarking." |
| 149 (interactive "P") | 149 (interactive "P") |
| 150 (make-diary-entry | 150 (let* ((calendar-date-display-form |
| 151 (format "%s(diary-cyclic %d %s)" | 151 (if european-calendar-style |
| 152 sexp-diary-entry-symbol | 152 '(day " " month " " year) |
| 153 (calendar-read "Repeat every how many days: " | 153 '(month " " day " " year)))) |
| 154 '(lambda (x) (> x 0))) | 154 (make-diary-entry |
| 155 (calendar-date-string | 155 (format "%s(diary-cyclic %d %s)" |
| 156 (or (calendar-cursor-to-date) | 156 sexp-diary-entry-symbol |
| 157 (error "Cursor is not on a date!")) | 157 (calendar-read "Repeat every how many days: " |
| 158 nil t)) | 158 '(lambda (x) (> x 0))) |
| 159 arg)) | 159 (calendar-date-string |
| 160 (or (calendar-cursor-to-date) | |
| 161 (error "Cursor is not on a date!")) | |
| 162 nil t)) | |
| 163 arg))) | |
| 160 | 164 |
| 161 (defun insert-hebrew-diary-entry (arg) | 165 (defun insert-hebrew-diary-entry (arg) |
| 162 "Insert a diary entry. | 166 "Insert a diary entry. |
| 163 For the Hebrew date corresponding to the date indicated by point. | 167 For the Hebrew date corresponding to the date indicated by point. |
| 164 Prefix arg will make the entry nonmarking." | 168 Prefix arg will make the entry nonmarking." |