Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 55431:b278cb498cc8
2004-05-08 John Wiegley <johnw@newartisans.com>
* calendar/cal-bahai.el: New file, which adds support for the
Baha'i calendar to Emacs. This calendar is based on a solar year
of 19 months of 19 days, with 4 intercalary days. Each year
begins on March 21, with the calendar starting in 1844.
* calendar/cal-menu.el, calendar/calendar.el,
calendar/diary-lib.el, calendar/holidays.el: Added support for
using cal-bahai.el.
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Sat, 08 May 2004 12:42:07 +0000 |
parents | c51143d3c644 |
children | a6fc5448746b 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
55430:8a3af63fa397 | 55431:b278cb498cc8 |
---|---|
120 (autoload 'mark-islamic-diary-entries "cal-islam" | 120 (autoload 'mark-islamic-diary-entries "cal-islam" |
121 "Mark days in the calendar window that have Islamic date diary entries.") | 121 "Mark days in the calendar window that have Islamic date diary entries.") |
122 | 122 |
123 (autoload 'mark-islamic-calendar-date-pattern "cal-islam" | 123 (autoload 'mark-islamic-calendar-date-pattern "cal-islam" |
124 "Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR.") | 124 "Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR.") |
125 | |
126 (autoload 'diary-bahai-date "cal-bahai" | |
127 "Baha'i calendar equivalent of date diary entry." | |
128 t) | |
129 | |
130 (autoload 'list-bahai-diary-entries "cal-bahai" | |
131 "Add any Baha'i date entries from the diary file to `diary-entries-list'." | |
132 t) | |
133 | |
134 (autoload 'mark-bahai-diary-entries "cal-bahai" | |
135 "Mark days in the calendar window that have Baha'i date diary entries." | |
136 t) | |
137 | |
138 (autoload 'mark-bahai-calendar-date-pattern "cal-bahai" | |
139 "Mark dates in calendar window that conform to Baha'i date MONTH/DAY/YEAR." | |
140 t) | |
125 | 141 |
126 (autoload 'diary-hebrew-date "cal-hebrew" | 142 (autoload 'diary-hebrew-date "cal-hebrew" |
127 "Hebrew calendar equivalent of date diary entry.") | 143 "Hebrew calendar equivalent of date diary entry.") |
128 | 144 |
129 (autoload 'diary-omer "cal-hebrew" | 145 (autoload 'diary-omer "cal-hebrew" |
1127 (string-to-int (substring s (match-beginning 2) (match-end 2))) | 1143 (string-to-int (substring s (match-beginning 2) (match-end 2))) |
1128 (if (equal ?a (downcase (aref s (match-beginning 3)))) | 1144 (if (equal ?a (downcase (aref s (match-beginning 3)))) |
1129 0 1200))) | 1145 0 1200))) |
1130 (t diary-unknown-time)))) ; Unrecognizable | 1146 (t diary-unknown-time)))) ; Unrecognizable |
1131 | 1147 |
1148 ;; Unrecognizable | |
1149 | |
1132 (defun list-sexp-diary-entries (date) | 1150 (defun list-sexp-diary-entries (date) |
1133 "Add sexp entries for DATE from the diary file to `diary-entries-list'. | 1151 "Add sexp entries for DATE from the diary file to `diary-entries-list'. |
1134 Also, Make them visible in the diary file. Returns t if any entries were | 1152 Also, Make them visible in the diary file. Returns t if any entries were |
1135 found. | 1153 found. |
1136 | 1154 |