mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(calendar-read-mayan-haab-date, calendar-read-mayan-tzolkin-date): Use

Browse Source 
assoc-string instead of assoc-ignore-case.
This commit is contained in:
Glenn Morris 2004-02-19 01:19:05 +00:00
parent 2ad9ebbd12
commit 22ebf3930a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/calendar/cal-mayan.el
View File

@ -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