340 |
(buffer-substring |
(buffer-substring |
341 |
(match-beginning m-name-pos) |
(match-beginning m-name-pos) |
342 |
(match-end m-name-pos)))) |
(match-end m-name-pos)))) |
343 |
(mm (string-to-int |
(mm (string-to-number |
344 |
(if m-pos |
(if m-pos |
345 |
(buffer-substring |
(buffer-substring |
346 |
(match-beginning m-pos) |
(match-beginning m-pos) |
347 |
(match-end m-pos)) |
(match-end m-pos)) |
348 |
""))) |
""))) |
349 |
(dd (string-to-int |
(dd (string-to-number |
350 |
(if d-pos |
(if d-pos |
351 |
(buffer-substring |
(buffer-substring |
352 |
(match-beginning d-pos) |
(match-beginning d-pos) |
365 |
(calendar-bahai-from-absolute |
(calendar-bahai-from-absolute |
366 |
(calendar-absolute-from-gregorian |
(calendar-absolute-from-gregorian |
367 |
(calendar-current-date))))) |
(calendar-current-date))))) |
368 |
(y (+ (string-to-int y-str) |
(y (+ (string-to-number y-str) |
369 |
(* 100 (/ current-y 100))))) |
(* 100 (/ current-y 100))))) |
370 |
(if (> (- y current-y) 50) |
(if (> (- y current-y) 50) |
371 |
(- y 100) |
(- y 100) |
372 |
(if (> (- current-y y) 50) |
(if (> (- current-y y) 50) |
373 |
(+ y 100) |
(+ y 100) |
374 |
y))) |
y))) |
375 |
(string-to-int y-str))))) |
(string-to-number y-str))))) |
376 |
(if dd-name |
(if dd-name |
377 |
(mark-calendar-days-named |
(mark-calendar-days-named |
378 |
(cdr (assoc-string (substring dd-name 0 3) |
(cdr (assoc-string (substring dd-name 0 3) |