Mercurial > emacs

changeset 54072:7cd960d120ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 8089fbb082b9
children 8061b3e9df12
files lisp/calendar/cal-coptic.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-coptic.el	Thu Feb 19 01:13:56 2004 +0000
+++ b/lisp/calendar/cal-coptic.el	Thu Feb 19 01:15:03 2004 +0000
@@ -151,14 +151,14 @@
                   (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)