Mercurial > emacs

changeset 54077:346fc2783282

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-read-mayan-haab-date, calendar-read-mayan-tzolkin-date): Use assoc-string instead of assoc-ignore-case.
author Glenn Morris <rgm@gnu.org>
date Thu, 19 Feb 2004 01:19:05 +0000
parents 9e3e3d184730
children eeaae818026b
files lisp/calendar/cal-mayan.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-mayan.el	Thu Feb 19 01:18:23 2004 +0000
+++ b/lisp/calendar/cal-mayan.el	Thu Feb 19 01:19:05 2004 +0000
@@ -256,11 +256,11 @@
          (haab-month-list (append calendar-mayan-haab-month-name-array
                                   (and (< haab-day 5) '("Uayeb"))))
          (haab-month (cdr
-                      (assoc-ignore-case
+                      (assoc-string
                        (completing-read "Haab uinal: "
                                         (mapcar 'list haab-month-list)
                                         nil t)
-                       (calendar-make-alist haab-month-list 1)))))
+                       (calendar-make-alist haab-month-list 1) t))))
     (cons haab-day haab-month)))
 
 (defun calendar-read-mayan-tzolkin-date ()
@@ -271,11 +271,11 @@
                          '(lambda (x) (and (> x 0) (< x 14)))))
          (tzolkin-name-list (append calendar-mayan-tzolkin-names-array nil))
          (tzolkin-name (cdr
-                        (assoc-ignore-case
+                        (assoc-string
                           (completing-read "Tzolkin uinal: "
                                            (mapcar 'list tzolkin-name-list)
                                            nil t)
-                         (calendar-make-alist tzolkin-name-list 1)))))
+                         (calendar-make-alist tzolkin-name-list 1) t))))
     (cons tzolkin-count tzolkin-name)))
 
 (defun calendar-next-calendar-round-date