Mercurial > emacs
comparison lisp/calendar/cal-persia.el @ 24186:8aae7db1922c
(persian-prompt-for-date): Use assoc-ignore-case and do not capitalize
when matching month and day names.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 26 Jan 1999 01:27:39 +0000 |
| parents | d179de7ad92e |
| children | 7a94f1c588c4 |
comparison
equal
deleted
inserted
replaced
| 24185:c8a68d6bcfa6 | 24186:8aae7db1922c |
|---|---|
| 185 (extract-calendar-year | 185 (extract-calendar-year |
| 186 (calendar-persian-from-absolute | 186 (calendar-persian-from-absolute |
| 187 (calendar-absolute-from-gregorian today)))))) | 187 (calendar-absolute-from-gregorian today)))))) |
| 188 (completion-ignore-case t) | 188 (completion-ignore-case t) |
| 189 (month (cdr (assoc | 189 (month (cdr (assoc |
| 190 (capitalize | |
| 191 (completing-read | 190 (completing-read |
| 192 "Persian calendar month name: " | 191 "Persian calendar month name: " |
| 193 (mapcar 'list | 192 (mapcar 'list |
| 194 (append persian-calendar-month-name-array nil)) | 193 (append persian-calendar-month-name-array nil)) |
| 195 nil t)) | 194 nil t) |
| 196 (calendar-make-alist persian-calendar-month-name-array | 195 (calendar-make-alist persian-calendar-month-name-array |
| 197 1 'capitalize)))) | 196 1)))) |
| 198 (last (persian-calendar-last-day-of-month month year)) | 197 (last (persian-calendar-last-day-of-month month year)) |
| 199 (day (calendar-read | 198 (day (calendar-read |
| 200 (format "Persian calendar day (1-%d): " last) | 199 (format "Persian calendar day (1-%d): " last) |
| 201 '(lambda (x) (and (< 0 x) (<= x last)))))) | 200 '(lambda (x) (and (< 0 x) (<= x last)))))) |
| 202 (list (list month day year)))) | 201 (list (list month day year)))) |