/[emacs]/emacs/lisp/calendar/cal-hebrew.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-hebrew.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by eggert, Wed Mar 30 16:55:58 2005 UTC revision 1.20 by lektu, Mon May 16 11:11:48 2005 UTC
# Line 718  is provided for use as part of the nongr Line 718  is provided for use as part of the nongr
718                        (buffer-substring                        (buffer-substring
719                         (match-beginning m-name-pos)                         (match-beginning m-name-pos)
720                         (match-end m-name-pos))))                         (match-end m-name-pos))))
721                   (mm (string-to-int                   (mm (string-to-number
722                        (if m-pos                        (if m-pos
723                            (buffer-substring                            (buffer-substring
724                             (match-beginning m-pos)                             (match-beginning m-pos)
725                             (match-end m-pos))                             (match-end m-pos))
726                          "")))                          "")))
727                   (dd (string-to-int                   (dd (string-to-number
728                        (if d-pos                        (if d-pos
729                            (buffer-substring                            (buffer-substring
730                             (match-beginning d-pos)                             (match-beginning d-pos)
# Line 743  is provided for use as part of the nongr Line 743  is provided for use as part of the nongr
743                                      (calendar-hebrew-from-absolute                                      (calendar-hebrew-from-absolute
744                                       (calendar-absolute-from-gregorian                                       (calendar-absolute-from-gregorian
745                                        (calendar-current-date)))))                                        (calendar-current-date)))))
746                                    (y (+ (string-to-int y-str)                                    (y (+ (string-to-number y-str)
747                                          (* 100 (/ current-y 100)))))                                          (* 100 (/ current-y 100)))))
748                               (if (> (- y current-y) 50)                               (if (> (- y current-y) 50)
749                                   (- y 100)                                   (- y 100)
750                                 (if (> (- current-y y) 50)                                 (if (> (- current-y y) 50)
751                                     (+ y 100)                                     (+ y 100)
752                                   y)))                                   y)))
753                           (string-to-int y-str)))))                           (string-to-number y-str)))))
754              (if dd-name              (if dd-name
755                  (mark-calendar-days-named                  (mark-calendar-days-named
756                   (cdr (assoc-string dd-name                   (cdr (assoc-string dd-name

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26