# HG changeset patch # User Richard M. Stallman # Date 917314014 0 # Node ID c8a68d6bcfa63ff0b988375408a0a7869eda40db # Parent 5b4ebdd66a82641886384b1a9f9f121d9b332eb0 (calendar-read-mayan-haab-date) (calendar-read-mayan-tzolkin-date): Use assoc-ignore-case and do not capitalize when matching month and day names. diff -r 5b4ebdd66a82 -r c8a68d6bcfa6 lisp/calendar/cal-mayan.el --- a/lisp/calendar/cal-mayan.el Tue Jan 26 01:26:01 1999 +0000 +++ b/lisp/calendar/cal-mayan.el Tue Jan 26 01:26:54 1999 +0000 @@ -256,13 +256,11 @@ (haab-month-list (append calendar-mayan-haab-month-name-array (and (< haab-day 5) '("Uayeb")))) (haab-month (cdr - (assoc - (capitalize - (completing-read "Haab uinal: " - (mapcar 'list haab-month-list) - nil t)) - (calendar-make-alist - haab-month-list 1 'capitalize))))) + (assoc-ignore-case + (completing-read "Haab uinal: " + (mapcar 'list haab-month-list) + nil t) + (calendar-make-alist haab-month-list 1))))) (cons haab-day haab-month))) (defun calendar-read-mayan-tzolkin-date () @@ -273,13 +271,11 @@ '(lambda (x) (and (> x 0) (< x 14))))) (tzolkin-name-list (append calendar-mayan-tzolkin-names-array nil)) (tzolkin-name (cdr - (assoc - (capitalize + (assoc-ignore-case (completing-read "Tzolkin uinal: " (mapcar 'list tzolkin-name-list) - nil t)) - (calendar-make-alist - tzolkin-name-list 1 'capitalize))))) + nil t) + (calendar-make-alist tzolkin-name-list 1))))) (cons tzolkin-count tzolkin-name))) (defun calendar-next-calendar-round-date