Source

calendar / cal-mayan.el

Diff from to

cal-mayan.el

 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Synched up with: FSF 20.3
+;;; Synched up with: FSF 20.5
 
 ;;; Commentary:
 
          (haab-month-list (append calendar-mayan-haab-month-name-array 
                                   (and (< haab-day 5) '("Uayeb"))))
          (haab-month (cdr
-                      (assoc
-                       (capitalize
+                      (assoc-ignore-case
                         (completing-read "Haab uinal: "
                                          (mapcar 'list haab-month-list)
-                                         nil t))
-                       (calendar-make-alist
-                        haab-month-list 1 'capitalize)))))
+                                         nil t)
+                       (calendar-make-alist haab-month-list 1)))))
     (cons haab-day haab-month)))
 
 (defun calendar-read-mayan-tzolkin-date ()
                          '(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