[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el |
Date: |
Fri, 26 Aug 2005 07:19:05 -0400 |
Index: emacs/lisp/calendar/cal-bahai.el
diff -c emacs/lisp/calendar/cal-bahai.el:1.9
emacs/lisp/calendar/cal-bahai.el:1.10
*** emacs/lisp/calendar/cal-bahai.el:1.9 Mon Jul 4 17:37:03 2005
--- emacs/lisp/calendar/cal-bahai.el Fri Aug 26 11:19:05 2005
***************
*** 54,59 ****
--- 54,65 ----
;;; Code:
+ (defvar date)
+ (defvar displayed-month)
+ (defvar displayed-year)
+ (defvar number)
+ (defvar original-date)
+
(require 'cal-julian)
(defvar bahai-calendar-month-name-array
***************
*** 215,221 ****
(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
(calendar-absolute-from-gregorian gdate)))
(month (extract-calendar-month bdate))
(day (extract-calendar-day bdate))
--- 221,227 ----
(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
(calendar-absolute-from-gregorian gdate)))
(month (extract-calendar-month bdate))
(day (extract-calendar-day bdate))
***************
*** 460,466 ****
(make-diary-entry
(concat
bahai-diary-entry-symbol
! (calendar-date-string
(calendar-bahai-from-absolute
(calendar-absolute-from-gregorian
(calendar-cursor-to-date t)))
--- 466,472 ----
(make-diary-entry
(concat
bahai-diary-entry-symbol
! (calendar-date-string
(calendar-bahai-from-absolute
(calendar-absolute-from-gregorian
(calendar-cursor-to-date t)))
***************
*** 478,484 ****
(make-diary-entry
(concat
bahai-diary-entry-symbol
! (calendar-date-string
(calendar-bahai-from-absolute
(calendar-absolute-from-gregorian
(calendar-cursor-to-date t)))))
--- 484,490 ----
(make-diary-entry
(concat
bahai-diary-entry-symbol
! (calendar-date-string
(calendar-bahai-from-absolute
(calendar-absolute-from-gregorian
(calendar-cursor-to-date t)))))
***************
*** 497,503 ****
(make-diary-entry
(concat
bahai-diary-entry-symbol
! (calendar-date-string
(calendar-bahai-from-absolute
(calendar-absolute-from-gregorian
(calendar-cursor-to-date t)))))
--- 503,509 ----
(make-diary-entry
(concat
bahai-diary-entry-symbol
! (calendar-date-string
(calendar-bahai-from-absolute
(calendar-absolute-from-gregorian
(calendar-cursor-to-date t)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,
Juanma Barranquero <=