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

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

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

revision 1.7 by lektu, Fri May 6 19:27:09 2005 UTC revision 1.8 by lektu, Mon May 16 11:11:48 2005 UTC
# Line 340  nongregorian-diary-marking-hook." Line 340  nongregorian-diary-marking-hook."
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)
# Line 365  nongregorian-diary-marking-hook." Line 365  nongregorian-diary-marking-hook."
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)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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