diff options
| author | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:15:03 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:15:03 +0000 |
| commit | 3be2dc285dc5bd37590d974e42b4159617324d8e (patch) | |
| tree | edf2162109829a48dbd32078539b56a8c4cc04b8 /lisp/calendar | |
| parent | 78e37e9cd4b1a934e2757320bd6d45a9c504fde2 (diff) | |
| download | emacs-3be2dc285dc5bd37590d974e42b4159617324d8e.tar.gz | |
(coptic-prompt-for-date): Use assoc-string instead of assoc-ignore-case.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/cal-coptic.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index f33e80d6991..df1201a23c4 100644 --- a/lisp/calendar/cal-coptic.el +++ b/lisp/calendar/cal-coptic.el @@ -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) |