[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el

[Juanma Barranquero]

Index: emacs/lisp/calendar/cal-bahai.el
diff -c emacs/lisp/calendar/cal-bahai.el:1.6 
emacs/lisp/calendar/cal-bahai.el:1.7
*** emacs/lisp/calendar/cal-bahai.el:1.6        Sun May  9 04:52:07 2004
--- emacs/lisp/calendar/cal-bahai.el    Fri May  6 19:27:09 2005
***************
*** 375,393 ****
                           (string-to-int y-str)))))
              (if dd-name
                  (mark-calendar-days-named
!                  (cdr (assoc-ignore-case (substring dd-name 0 3)
!                                          (calendar-make-alist
!                                           calendar-day-name-array
!                                           0
!                                           '(lambda (x) (substring x 0 3))))))
                (if mm-name
                    (if (string-equal mm-name "*")
                        (setq mm 0)
                      (setq mm
!                           (cdr (assoc-ignore-case
                                  mm-name
                                  (calendar-make-alist
!                                   bahai-calendar-month-name-array))))))
                (mark-bahai-calendar-date-pattern mm dd yy)))))
        (setq d (cdr d)))))
  
--- 375,395 ----
                           (string-to-int y-str)))))
              (if dd-name
                  (mark-calendar-days-named
!                  (cdr (assoc-string (substring dd-name 0 3)
!                                     (calendar-make-alist
!                                      calendar-day-name-array
!                                      0
!                                      '(lambda (x) (substring x 0 3)))
!                                     t)))
                (if mm-name
                    (if (string-equal mm-name "*")
                        (setq mm 0)
                      (setq mm
!                           (cdr (assoc-string
                                  mm-name
                                  (calendar-make-alist
!                                   bahai-calendar-month-name-array)
!                                 t)))))
                (mark-bahai-calendar-date-pattern mm dd yy)))))
        (setq d (cdr d)))))