diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-04-07 01:59:37 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-04-07 01:59:37 +0000 |
| commit | e803eab7779f54910464567216ed486d467b8537 (patch) | |
| tree | 343299f3f5d0afca58b91de57d219b1711fa1c4f /lisp/calendar/cal-coptic.el | |
| parent | 1b73d7f379cb1649762adb6e3c785bd1340d68a5 (diff) | |
| download | emacs-e803eab7779f54910464567216ed486d467b8537.tar.gz emacs-e803eab7779f54910464567216ed486d467b8537.tar.bz2 emacs-e803eab7779f54910464567216ed486d467b8537.zip | |
Update for calendar.el name changes.
Diffstat (limited to 'lisp/calendar/cal-coptic.el')
| -rw-r--r-- | lisp/calendar/cal-coptic.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el index 7ca17c23861..6d301e0bce1 100644 --- a/lisp/calendar/cal-coptic.el +++ b/lisp/calendar/cal-coptic.el @@ -68,9 +68,9 @@ Nisi (Kebus) at the end of the year." "Compute absolute date from Coptic date DATE. The absolute date is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC." - (let ((month (extract-calendar-month date)) - (day (extract-calendar-day date)) - (year (extract-calendar-year date))) + (let ((month (calendar-extract-month date)) + (day (calendar-extract-day date)) + (year (calendar-extract-year date))) (+ (1- calendar-coptic-epoch) ; days before start of calendar (* 365 (1- year)) ; days in prior years (/ year 4) ; leap days in prior years @@ -117,12 +117,12 @@ Defaults to today's date if DATE is not given." (let* ((coptic-date (calendar-coptic-from-absolute (calendar-absolute-from-gregorian (or date (calendar-current-date))))) - (y (extract-calendar-year coptic-date)) - (m (extract-calendar-month coptic-date))) + (y (calendar-extract-year coptic-date)) + (m (calendar-extract-month coptic-date))) (if (< y 1) "" (let ((monthname (aref calendar-coptic-month-name-array (1- m))) - (day (int-to-string (extract-calendar-day coptic-date))) + (day (int-to-string (calendar-extract-day coptic-date))) (dayname nil) (month (int-to-string m)) (year (int-to-string y))) @@ -148,7 +148,7 @@ Reads a year, month, and day." (format "%s calendar year (>0): " calendar-coptic-name) (lambda (x) (> x 0)) (int-to-string - (extract-calendar-year + (calendar-extract-year (calendar-coptic-from-absolute (calendar-absolute-from-gregorian today)))))) (completion-ignore-case t) |