diff options
| author | Glenn Morris | 2008-03-08 04:19:47 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-03-08 04:19:47 +0000 |
| commit | 1ddbd3a6f2956a72c0e2ff2307a0dd3d73277f77 (patch) | |
| tree | d662b33369b938a30350bef78452bfcb5f63dd0b | |
| parent | b0b671db106f5cdc11a090f046dfd2987a346c73 (diff) | |
| download | emacs-1ddbd3a6f2956a72c0e2ff2307a0dd3d73277f77.tar.gz emacs-1ddbd3a6f2956a72c0e2ff2307a0dd3d73277f77.zip | |
Comments.
| -rw-r--r-- | lisp/calendar/cal-mayan.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calendar/cal-mayan.el b/lisp/calendar/cal-mayan.el index 30b9cc26c38..b3ed1c89887 100644 --- a/lisp/calendar/cal-mayan.el +++ b/lisp/calendar/cal-mayan.el | |||
| @@ -53,8 +53,6 @@ | |||
| 53 | 53 | ||
| 54 | ;;; Code: | 54 | ;;; Code: |
| 55 | 55 | ||
| 56 | (defvar date) | ||
| 57 | |||
| 58 | (require 'calendar) | 56 | (require 'calendar) |
| 59 | 57 | ||
| 60 | (defconst calendar-mayan-days-before-absolute-zero 1137142 | 58 | (defconst calendar-mayan-days-before-absolute-zero 1137142 |
| @@ -381,6 +379,9 @@ Defaults to today's date if DATE is not given." | |||
| 381 | base (cdr base))) | 379 | base (cdr base))) |
| 382 | (or (null lc) (> (car lc) (car base))))) | 380 | (or (null lc) (> (car lc) (car base))))) |
| 383 | 381 | ||
| 382 | (defvar date) | ||
| 383 | |||
| 384 | ;; To be called from list-sexp-diary-entries, where DATE is bound. | ||
| 384 | (defun diary-mayan-date () | 385 | (defun diary-mayan-date () |
| 385 | "Show the Mayan long count, haab, and tzolkin dates as a diary entry." | 386 | "Show the Mayan long count, haab, and tzolkin dates as a diary entry." |
| 386 | (format "Mayan date: %s" (calendar-mayan-date-string date))) | 387 | (format "Mayan date: %s" (calendar-mayan-date-string date))) |