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) |
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 |