diff options
author | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:26:54 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:26:54 +0000 |
commit | 81e72e11c7aaae33a0264b0b8b181ccf17624521 (patch) | |
tree | 7d8b3d832029b1009ce1e64b434ad4a013ffead8 /lisp/calendar | |
parent | c409e8ab0f04b0e76f6a2967a6a349387ed57573 (diff) | |
download | emacs-81e72e11c7aaae33a0264b0b8b181ccf17624521.tar.gz |
(calendar-read-mayan-haab-date)
(calendar-read-mayan-tzolkin-date): Use assoc-ignore-case and do not
capitalize when matching month and day names.
Diffstat (limited to 'lisp/calendar')
-rw-r--r-- | lisp/calendar/cal-mayan.el | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el index 6ebc5b2e944..45459dcc599 100644 --- a/lisp/calendar/cal-mayan.el +++ b/lisp/calendar/cal-mayan.el @@ -256,13 +256,11 @@ Returns nil if such a tzolkin-haab combination is impossible." (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 @@ Returns nil if such a tzolkin-haab combination is impossible." '(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 |