mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(date, displayed-month, displayed-year, number, original-date):

Browse Source 
Add defvars.
This commit is contained in:
Juanma Barranquero 2005-08-26 11:19:05 +00:00
parent f6c05015bb
commit 916f8173d7
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/calendar/cal-bahai.el
View File

@ -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)))))