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

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

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

revision 1.15 by eggert, Wed Mar 30 16:55:58 2005 UTC revision 1.16 by lektu, Mon May 16 11:11:48 2005 UTC
# Line 337  provided for use as part of the nongrego Line 337  provided for use as part of the nongrego
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)
# Line 362  provided for use as part of the nongrego Line 362  provided for use as part of the nongrego
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

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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