From 916f8173d7cf205bfe17d7dc81871b6f49107280 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 26 Aug 2005 11:19:05 +0000 Subject: [PATCH] (date, displayed-month, displayed-year, number, original-date): Add defvars. --- lisp/calendar/cal-bahai.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el index 6bf84d11951..dd06ca6b9ef 100644 --- a/lisp/calendar/cal-bahai.el +++ b/lisp/calendar/cal-bahai.el @@ -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 @@ calendar. This function is provided for use with the (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 @@ Prefix arg will make the entry nonmarking." (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 @@ Prefix arg will make the entry nonmarking." (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 @@ Prefix arg will make the entry nonmarking." (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))))) -- 2.39.2