Mercurial > emacs
changeset 65141:fad69800a5b0
(date, displayed-month, displayed-year, number, original-date):
Add defvars.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 26 Aug 2005 11:19:05 +0000 |
| parents | 3c2b74f1d910 |
| children | 7d76e1599ecb |
| files | lisp/calendar/cal-bahai.el |
| diffstat | 1 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-bahai.el Fri Aug 26 11:04:16 2005 +0000 +++ b/lisp/calendar/cal-bahai.el Fri Aug 26 11:19:05 2005 +0000 @@ -54,6 +54,12 @@ ;;; Code: +(defvar date) +(defvar displayed-month) +(defvar displayed-year) +(defvar number) +(defvar original-date) + (require 'cal-julian) (defvar bahai-calendar-month-name-array @@ -215,7 +221,7 @@ (mark (regexp-quote diary-nonmarking-symbol))) (calendar-for-loop i from 1 to number do (let* ((d diary-date-forms) - (bdate (calendar-bahai-from-absolute + (bdate (calendar-bahai-from-absolute (calendar-absolute-from-gregorian gdate))) (month (extract-calendar-month bdate)) (day (extract-calendar-day bdate)) @@ -460,7 +466,7 @@ (make-diary-entry (concat bahai-diary-entry-symbol - (calendar-date-string + (calendar-date-string (calendar-bahai-from-absolute (calendar-absolute-from-gregorian (calendar-cursor-to-date t))) @@ -478,7 +484,7 @@ (make-diary-entry (concat bahai-diary-entry-symbol - (calendar-date-string + (calendar-date-string (calendar-bahai-from-absolute (calendar-absolute-from-gregorian (calendar-cursor-to-date t))))) @@ -497,7 +503,7 @@ (make-diary-entry (concat bahai-diary-entry-symbol - (calendar-date-string + (calendar-date-string (calendar-bahai-from-absolute (calendar-absolute-from-gregorian (calendar-cursor-to-date t)))))