[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.7 
emacs/lisp/calendar/cal-bahai.el:1.8
*** emacs/lisp/calendar/cal-bahai.el:1.7        Fri May  6 19:27:09 2005
--- emacs/lisp/calendar/cal-bahai.el    Mon May 16 11:11:48 2005
***************
*** 340,352 ****
                        (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)
--- 340,352 ----
                        (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)
***************
*** 365,378 ****
                                      (calendar-bahai-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 (substring dd-name 0 3)
--- 365,378 ----
                                      (calendar-bahai-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 (substring dd-name 0 3)