Mercurial > emacs
comparison lisp/calendar/cal-mayan.el @ 93646:a1ece6da90e8
(calendar-mayan-long-count-to-absolute): Keep old name as alias.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 04 Apr 2008 07:30:39 +0000 |
| parents | 8b04f0b12fa3 |
| children | 4ad805f0f03f |
comparison
equal
deleted
inserted
replaced
| 93645:8b04f0b12fa3 | 93646:a1ece6da90e8 |
|---|---|
| 343 (* (nth 3 c) 20) ; uinal | 343 (* (nth 3 c) 20) ; uinal |
| 344 (nth 4 c) ; kin (days) | 344 (nth 4 c) ; kin (days) |
| 345 ;; Days before absolute date 0. | 345 ;; Days before absolute date 0. |
| 346 (- calendar-mayan-days-before-absolute-zero))) | 346 (- calendar-mayan-days-before-absolute-zero))) |
| 347 | 347 |
| 348 (define-obsolete-function-alias 'calendar-absolute-from-mayan-long-count | |
| 349 'calendar-mayan-long-count-to-absolute "23.1") | |
| 350 | |
| 348 (defun calendar-mayan-long-count-common-era (lc) | 351 (defun calendar-mayan-long-count-common-era (lc) |
| 349 "Return non-nil if long count LC represents a date in the Common Era." | 352 "Return non-nil if long count LC represents a date in the Common Era." |
| 350 (let ((base (calendar-mayan-long-count-from-absolute 1))) | 353 (let ((base (calendar-mayan-long-count-from-absolute 1))) |
| 351 (while (and base (= (car lc) (car base))) | 354 (while (and base (= (car lc) (car base))) |
| 352 (setq lc (cdr lc) | 355 (setq lc (cdr lc) |