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)))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
