# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1125055145 0
# Node ID fad69800a5b0ecc752b7e858fa1a96aa572cf2c2
# Parent  3c2b74f1d910d2131d4e6dbe22e2d75d0a6264bc
(date, displayed-month, displayed-year, number, original-date):
Add defvars.

diff -r 3c2b74f1d910 -r fad69800a5b0 lisp/calendar/cal-bahai.el
--- 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)))))