337 |
(buffer-substring |
(buffer-substring |
338 |
(match-beginning m-name-pos) |
(match-beginning m-name-pos) |
339 |
(match-end m-name-pos)))) |
(match-end m-name-pos)))) |
340 |
(mm (string-to-int |
(mm (string-to-number |
341 |
(if m-pos |
(if m-pos |
342 |
(buffer-substring |
(buffer-substring |
343 |
(match-beginning m-pos) |
(match-beginning m-pos) |
344 |
(match-end m-pos)) |
(match-end m-pos)) |
345 |
""))) |
""))) |
346 |
(dd (string-to-int |
(dd (string-to-number |
347 |
(if d-pos |
(if d-pos |
348 |
(buffer-substring |
(buffer-substring |
349 |
(match-beginning d-pos) |
(match-beginning d-pos) |
362 |
(calendar-islamic-from-absolute |
(calendar-islamic-from-absolute |
363 |
(calendar-absolute-from-gregorian |
(calendar-absolute-from-gregorian |
364 |
(calendar-current-date))))) |
(calendar-current-date))))) |
365 |
(y (+ (string-to-int y-str) |
(y (+ (string-to-number y-str) |
366 |
(* 100 (/ current-y 100))))) |
(* 100 (/ current-y 100))))) |
367 |
(if (> (- y current-y) 50) |
(if (> (- y current-y) 50) |
368 |
(- y 100) |
(- y 100) |
369 |
(if (> (- current-y y) 50) |
(if (> (- current-y y) 50) |
370 |
(+ y 100) |
(+ y 100) |
371 |
y))) |
y))) |
372 |
(string-to-int y-str))))) |
(string-to-number y-str))))) |
373 |
(if dd-name |
(if dd-name |
374 |
(mark-calendar-days-named |
(mark-calendar-days-named |
375 |
(cdr (assoc-string dd-name |
(cdr (assoc-string dd-name |