Mercurial > emacs
comparison lisp/calendar/cal-coptic.el @ 54072:7cd960d120ba
(coptic-prompt-for-date): Use assoc-string instead of assoc-ignore-case.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 19 Feb 2004 01:15:03 +0000 |
| parents | 695cf19ef79e |
| children | 7f7db25577d9 |
comparison
equal
deleted
inserted
replaced
| 54071:8089fbb082b9 | 54072:7cd960d120ba |
|---|---|
| 149 (int-to-string | 149 (int-to-string |
| 150 (extract-calendar-year | 150 (extract-calendar-year |
| 151 (calendar-coptic-from-absolute | 151 (calendar-coptic-from-absolute |
| 152 (calendar-absolute-from-gregorian today)))))) | 152 (calendar-absolute-from-gregorian today)))))) |
| 153 (completion-ignore-case t) | 153 (completion-ignore-case t) |
| 154 (month (cdr (assoc-ignore-case | 154 (month (cdr (assoc-string |
| 155 (completing-read | 155 (completing-read |
| 156 (format "%s calendar month name: " coptic-name) | 156 (format "%s calendar month name: " coptic-name) |
| 157 (mapcar 'list | 157 (mapcar 'list |
| 158 (append coptic-calendar-month-name-array nil)) | 158 (append coptic-calendar-month-name-array nil)) |
| 159 nil t) | 159 nil t) |
| 160 (calendar-make-alist coptic-calendar-month-name-array | 160 (calendar-make-alist coptic-calendar-month-name-array |
| 161 1)))) | 161 1) t))) |
| 162 (last (coptic-calendar-last-day-of-month month year)) | 162 (last (coptic-calendar-last-day-of-month month year)) |
| 163 (day (calendar-read | 163 (day (calendar-read |
| 164 (format "%s calendar day (1-%d): " coptic-name last) | 164 (format "%s calendar day (1-%d): " coptic-name last) |
| 165 '(lambda (x) (and (< 0 x) (<= x last)))))) | 165 '(lambda (x) (and (< 0 x) (<= x last)))))) |
| 166 (list (list month day year)))) | 166 (list (list month day year)))) |