Index: emacs/lisp/calendar/cal-islam.el
diff -c emacs/lisp/calendar/cal-islam.el:1.15
emacs/lisp/calendar/cal-islam.el:1.16
*** emacs/lisp/calendar/cal-islam.el:1.15 Wed Mar 30 16:55:58 2005
--- emacs/lisp/calendar/cal-islam.el Mon May 16 11:11:48 2005
***************
*** 337,349 ****
(buffer-substring
(match-beginning m-name-pos)
(match-end m-name-pos))))
! (mm (string-to-int
(if m-pos
(buffer-substring
(match-beginning m-pos)
(match-end m-pos))
"")))
! (dd (string-to-int
(if d-pos
(buffer-substring
(match-beginning d-pos)
--- 337,349 ----
(buffer-substring
(match-beginning m-name-pos)
(match-end m-name-pos))))
! (mm (string-to-number
(if m-pos
(buffer-substring
(match-beginning m-pos)
(match-end m-pos))
"")))
! (dd (string-to-number
(if d-pos
(buffer-substring
(match-beginning d-pos)
***************
*** 362,375 ****
(calendar-islamic-from-absolute
(calendar-absolute-from-gregorian
(calendar-current-date)))))
! (y (+ (string-to-int y-str)
(* 100 (/ current-y 100)))))
(if (> (- y current-y) 50)
(- y 100)
(if (> (- current-y y) 50)
(+ y 100)
y)))
! (string-to-int y-str)))))
(if dd-name
(mark-calendar-days-named
(cdr (assoc-string dd-name
--- 362,375 ----
(calendar-islamic-from-absolute
(calendar-absolute-from-gregorian
(calendar-current-date)))))
! (y (+ (string-to-number y-str)
(* 100 (/ current-y 100)))))
(if (> (- y current-y) 50)
(- y 100)
(if (> (- current-y y) 50)
(+ y 100)
y)))
! (string-to-number y-str)))))
(if dd-name
(mark-calendar-days-named
(cdr (assoc-string dd-name
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
