From d80c2c18c1fe064185ffbab1d0fc3ad4fd7f89c5 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 4 Apr 2008 07:37:36 +0000 Subject: [PATCH] Update for cal-persia name changes. --- lisp/ChangeLog | 101 +++++++++++++++++++++++++++++++++++++++ lisp/calendar/cal-dst.el | 6 +-- 2 files changed, 104 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8cd6097c9e..27d8420133 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,106 @@ 2008-04-04 Glenn Morris + * calendar/cal-bahai.el (calendar-bahai-to-absolute): Rename + calendar-absolute-from-bahai. Update callers, keep old name as alias. + + * calendar/cal-islam.el (calendar-islamic-leap-year-p): + Rename islamic-calendar-leap-year-p. Update callers. + (calendar-islamic-last-day-of-month): + Rename islamic-calendar-last-day-of-month. Update callers. + (calendar-islamic-day-number): + Rename islamic-calendar-day-number. Update callers. + (calendar-islamic-to-absolute): Rename + calendar-absolute-from-islamic. Update callers, keep old name as alias. + (calendar-islamic-print-date): Rename calendar-print-islamic-date. + Update callers, keep old name as alias. + (calendar-islamic-goto-date): Rename calendar-goto-islamic-date. + Keep old name as alias. + (diary-islamic-list-entries): Rename list-islamic-diary-entries. + Update callers, keep old name as alias. + (calendar-islamic-mark-date-pattern): + Rename mark-islamic-calendar-date-pattern. Update callers, keep old + name as alias. + (diary-islamic-insert-entry): Rename insert-islamic-diary-entry. + Keep old name as alias. + (diary-islamic-insert-monthly-entry): + Rename insert-monthly-islamic-diary-entry. Keep old name as alias. + (diary-islamic-insert-yearly-entry): + Rename insert-yearly-islamic-diary-entry. Keep old name as alias. + + * calendar/cal-iso.el (calendar-iso-to-absolute): Rename + calendar-absolute-from-iso. Update callers, keep old name as alias. + (calendar-iso-print-date): Rename calendar-print-iso-date. + Update callers, keep old name as alias. + (calendar-iso-goto-date): Rename calendar-goto-iso-date. + Keep old name as alias. + (calendar-iso-goto-week): Rename calendar-goto-iso-week. + Keep old name as alias. + + * calendar/cal-julian.el (calendar-julian-to-absolute): Rename + calendar-absolute-from-julian. Update callers, keep old name as alias. + (calendar-julian-print-date): Rename calendar-print-julian-date. + Update callers, keep old name as alias. + (calendar-julian-goto-date): Rename calendar-goto-julian-date. + Update callers, keep old name as alias. + (calendar-astro-to-absolute): Rename calendar-absolute-from-astro. + Update callers, keep old name as alias. + (calendar-astro-print-day-number): Rename + calendar-print-astro-day-number. Update callers, keep old name as + alias. + (calendar-astro-goto-day-number): Rename calendar-goto-astro-day-number. + Update callers, keep old name as alias. + + * calendar/cal-mayan.el (calendar-mayan-string-from-long-count): + Rename calendar-string-to-mayan-long-count. Update callers. + (calendar-mayan-print-date): Rename calendar-print-mayan-date. + Update callers, keep old name as alias. + (calendar-mayan-read-haab-date): Rename calendar-read-mayan-haab-date. + Update callers. + (calendar-mayan-read-tzolkin-date): Rename + calendar-read-mayan-tzolkin-date. Update callers. + (calendar-mayan-next-haab-date): Rename calendar-next-haab-date. + Keep old name as alias. + (calendar-mayan-previous-haab-date): Rename calendar-previous-haab-date. + Keep old name as alias. + (calendar-mayan-next-tzolkin-date): Rename calendar-next-tzolkin-date. + Keep old name as alias. + (calendar-mayan-previous-tzolkin-date): Rename + calendar-previous-tzolkin-date. Keep old name as alias. + (calendar-mayan-next-round-date): Rename + calendar-next-calendar-round-date. Keep old name as alias. + (calendar-mayan-previous-round-date): Rename + calendar-previous-calendar-round-date. Keep old name as alias. + (calendar-mayan-long-count-to-absolute): Rename + calendar-absolute-from-mayan-long-count. Keep old name as alias. + (calendar-mayan-goto-long-count-date): Rename + calendar-goto-mayan-long-count-date. Keep old name as alias. + + * calendar/cal-persia.el (calendar-persian-month-name-array): + Rename persian-calendar-month-name-array. Update callers. + (calendar-persian-epoch): Rename persian-calendar-epoch. + Update callers. + (calendar-persian-leap-year-p): Rename persian-calendar-leap-year-p. + Update callers. + (calendar-persian-last-day-of-month): Rename + persian-calendar-last-day-of-month. Update callers. + (calendar-persian-to-absolute): Rename calendar-absolute-from-persian. + Update callers, keep old name as alias. + (calendar-persian-print-date): Rename calendar-print-persian-date. + Update callers, keep old name as alias. + (calendar-persian-goto-date): Rename calendar-goto-persian-date. + Keep old name as alias. + + * calendar/cal-china.el, calendar/cal-coptic.el, calendar/cal-islam.el: + * calendar/cal-persia.el, calendar/holidays.el, calendar/lunar.el: + * calendar/solar.el: Update for cal-julian name changes. + + * calendar/cal-dst.el: Update for persian name changes. + + * calendar/cal-menu.el, calendar/calendar.el: + Update for islamic, iso, julian, mayan, persian name changes. + + * calendar/diary-lib.el: Update for islamic name changes. + * calendar/calendar.el (calendar-hebrew-all-holidays-flag): Rename all-hebrew-calendar-holidays. Update callers, keep old name as alias. diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index ac86b9e92c..57aa87c3a8 100644 --- a/lisp/calendar/cal-dst.el +++ b/lisp/calendar/cal-dst.el @@ -181,7 +181,7 @@ Return nil if no such transition can be found." (setq lo probe))) hi)))) -(autoload 'calendar-absolute-from-persian "cal-persia") +(autoload 'calendar-persian-to-absolute "cal-persia") (defun calendar-time-zone-daylight-rules (abs-date utc-diff) "Return daylight transition rule for ABS-DATE, UTC-DIFF sec offset from UTC. @@ -214,10 +214,10 @@ The result has the proper form for `calendar-daylight-savings-starts'." ;; FIXME what does the Persian calendar have to do with this? (if (and (= m 3) (<= 20 d) (<= d 21)) '((calendar-gregorian-from-absolute - (calendar-absolute-from-persian `(1 1 ,(- year 621)))))) + (calendar-persian-to-absolute `(1 1 ,(- year 621)))))) (if (and (= m 9) (<= 22 d) (<= d 23)) '((calendar-gregorian-from-absolute - (calendar-absolute-from-persian `(7 1 ,(- year 621)))))))) + (calendar-persian-to-absolute `(7 1 ,(- year 621)))))))) (prevday-sec (- -1 utc-diff)) ; last sec of previous local day (year (1+ y)) new-rules) -- 2.20.1