/[emacs]/emacs/lisp/calendar/cal-bahai.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-bahai.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by lute, Mon Jul 4 17:37:03 2005 UTC revision 1.10 by lektu, Fri Aug 26 11:19:05 2005 UTC
# Line 54  Line 54 
54    
55  ;;; Code:  ;;; Code:
56    
57    (defvar date)
58    (defvar displayed-month)
59    (defvar displayed-year)
60    (defvar number)
61    (defvar original-date)
62    
63  (require 'cal-julian)  (require 'cal-julian)
64    
65  (defvar bahai-calendar-month-name-array  (defvar bahai-calendar-month-name-array
# Line 215  calendar.  This function is provided for Line 221  calendar.  This function is provided for
221              (mark (regexp-quote diary-nonmarking-symbol)))              (mark (regexp-quote diary-nonmarking-symbol)))
222          (calendar-for-loop i from 1 to number do          (calendar-for-loop i from 1 to number do
223             (let* ((d diary-date-forms)             (let* ((d diary-date-forms)
224                    (bdate (calendar-bahai-from-absolute                    (bdate (calendar-bahai-from-absolute
225                            (calendar-absolute-from-gregorian gdate)))                            (calendar-absolute-from-gregorian gdate)))
226                    (month (extract-calendar-month bdate))                    (month (extract-calendar-month bdate))
227                    (day (extract-calendar-day bdate))                    (day (extract-calendar-day bdate))
# Line 460  Prefix arg will make the entry nonmarkin Line 466  Prefix arg will make the entry nonmarkin
466      (make-diary-entry      (make-diary-entry
467       (concat       (concat
468        bahai-diary-entry-symbol        bahai-diary-entry-symbol
469        (calendar-date-string        (calendar-date-string
470         (calendar-bahai-from-absolute         (calendar-bahai-from-absolute
471          (calendar-absolute-from-gregorian          (calendar-absolute-from-gregorian
472           (calendar-cursor-to-date t)))           (calendar-cursor-to-date t)))
# Line 478  Prefix arg will make the entry nonmarkin Line 484  Prefix arg will make the entry nonmarkin
484      (make-diary-entry      (make-diary-entry
485       (concat       (concat
486        bahai-diary-entry-symbol        bahai-diary-entry-symbol
487        (calendar-date-string        (calendar-date-string
488         (calendar-bahai-from-absolute         (calendar-bahai-from-absolute
489          (calendar-absolute-from-gregorian          (calendar-absolute-from-gregorian
490           (calendar-cursor-to-date t)))))           (calendar-cursor-to-date t)))))
# Line 497  Prefix arg will make the entry nonmarkin Line 503  Prefix arg will make the entry nonmarkin
503      (make-diary-entry      (make-diary-entry
504       (concat       (concat
505        bahai-diary-entry-symbol        bahai-diary-entry-symbol
506        (calendar-date-string        (calendar-date-string
507         (calendar-bahai-from-absolute         (calendar-bahai-from-absolute
508          (calendar-absolute-from-gregorian          (calendar-absolute-from-gregorian
509           (calendar-cursor-to-date t)))))           (calendar-cursor-to-date t)))))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26