[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el |
Date: |
Fri, 06 May 2005 15:27:09 -0400 |
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] Changes to emacs/lisp/calendar/cal-bahai.el,
Juanma Barranquero <=