summaryrefslogtreecommitdiff
path: root/lisp/calendar/cal-mayan.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2008-03-08 04:19:47 +0000
committerGlenn Morris <rgm@gnu.org>2008-03-08 04:19:47 +0000
commit1ddbd3a6f2956a72c0e2ff2307a0dd3d73277f77 (patch)
treed662b33369b938a30350bef78452bfcb5f63dd0b /lisp/calendar/cal-mayan.el
parentb0b671db106f5cdc11a090f046dfd2987a346c73 (diff)
downloademacs-1ddbd3a6f2956a72c0e2ff2307a0dd3d73277f77.tar.gz
Comments.
Diffstat (limited to 'lisp/calendar/cal-mayan.el')
-rw-r--r--lisp/calendar/cal-mayan.el5
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 @@
;;; Code:
-(defvar date)
-
(require 'calendar)
(defconst calendar-mayan-days-before-absolute-zero 1137142
@@ -381,6 +379,9 @@ Defaults to today's date if DATE is not given."
base (cdr base)))
(or (null lc) (> (car lc) (car base)))))
+(defvar date)
+
+;; To be called from list-sexp-diary-entries, where DATE is bound.
(defun diary-mayan-date ()
"Show the Mayan long count, haab, and tzolkin dates as a diary entry."
(format "Mayan date: %s" (calendar-mayan-date-string date)))