mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(coptic-prompt-for-date): Use assoc-string instead of assoc-ignore-case.

Browse source
This commit is contained in:
Glenn Morris 2004-02-19 01:15:03 +00:00
parent 78e37e9cd4
commit 3be2dc285d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/calendar/cal-coptic.el
View file

@ -151,14 +151,14 @@ Echo Coptic date unless NOECHO is t."
(calendar-coptic-from-absolute
(calendar-absolute-from-gregorian today))))))
(completion-ignore-case t)
(month (cdr (assoc-ignore-case
(month (cdr (assoc-string
(completing-read
(format "%s calendar month name: " coptic-name)
(mapcar 'list
(append coptic-calendar-month-name-array nil))
nil t)
(calendar-make-alist coptic-calendar-month-name-array
1))))
1) t)))
(last (coptic-calendar-last-day-of-month month year))
(day (calendar-read
(format "%s calendar day (1-%d): " coptic-name last)