diff options
author | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:19:05 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2004-02-19 01:19:05 +0000 |
commit | 22ebf3930a515beee729dc10b89fc4bfb2fb8b98 (patch) | |
tree | aed6c8533e855ae28549a78edeb55651de0faa22 | |
parent | 2ad9ebbd122d6dfb38c80f0064ffa6fc3e7ad33c (diff) | |
download | emacs-22ebf3930a515beee729dc10b89fc4bfb2fb8b98.tar.gz |
(calendar-read-mayan-haab-date, calendar-read-mayan-tzolkin-date): Use
assoc-string instead of assoc-ignore-case.
-rw-r--r-- | lisp/calendar/cal-mayan.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el index acaa1709080..c2c3e027c4b 100644 --- a/lisp/calendar/cal-mayan.el +++ b/lisp/calendar/cal-mayan.el @@ -256,11 +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-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 @@ 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-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 |