Mercurial > emacs
comparison lisp/=diary-ins.el @ 1356:dcf780f7ae1b
Doc fix.
| author | Christopher Zaborsky <rogue@erratum.com> |
|---|---|
| date | Tue, 06 Oct 1992 21:01:11 +0000 |
| parents | 2619b7a9c11e |
| children | 878f67b482b1 |
comparison
equal
deleted
inserted
replaced
| 1355:1777d125c0a7 | 1356:dcf780f7ae1b |
|---|---|
| 149 (error "Cursor is not on a date!")) | 149 (error "Cursor is not on a date!")) |
| 150 nil t)) | 150 nil t)) |
| 151 arg)) | 151 arg)) |
| 152 | 152 |
| 153 (defun insert-hebrew-diary-entry (arg) | 153 (defun insert-hebrew-diary-entry (arg) |
| 154 "Insert a diary entry for the Hebrew date corresponding to the date | 154 "Insert a diary entry. |
| 155 indicated by point. Prefix arg will make the entry nonmarking." | 155 For the Hebrew date corresponding to the date indicated by point. |
| 156 Prefix arg will make the entry nonmarking." | |
| 156 (interactive "P") | 157 (interactive "P") |
| 157 (let* ((calendar-month-name-array | 158 (let* ((calendar-month-name-array |
| 158 calendar-hebrew-month-name-array-leap-year)) | 159 calendar-hebrew-month-name-array-leap-year)) |
| 159 (make-diary-entry | 160 (make-diary-entry |
| 160 (concat | 161 (concat |
| 166 (error "Cursor is not on a date!")))) | 167 (error "Cursor is not on a date!")))) |
| 167 nil t)) | 168 nil t)) |
| 168 arg))) | 169 arg))) |
| 169 | 170 |
| 170 (defun insert-monthly-hebrew-diary-entry (arg) | 171 (defun insert-monthly-hebrew-diary-entry (arg) |
| 171 "Insert a monthly diary entry for the day of the Hebrew month corresponding | 172 "Insert a monthly diary entry. |
| 172 to the date indicated by point. Prefix arg will make the entry nonmarking." | 173 For the day of the Hebrew month corresponding to the date indicated by point. |
| 174 Prefix arg will make the entry nonmarking." | |
| 173 (interactive "P") | 175 (interactive "P") |
| 174 (let* ((calendar-date-display-form | 176 (let* ((calendar-date-display-form |
| 175 (if european-calendar-style '(day " * ") '("* " day ))) | 177 (if european-calendar-style '(day " * ") '("* " day ))) |
| 176 (calendar-month-name-array | 178 (calendar-month-name-array |
| 177 calendar-hebrew-month-name-array-leap-year)) | 179 calendar-hebrew-month-name-array-leap-year)) |
| 184 (or (calendar-cursor-to-date) | 186 (or (calendar-cursor-to-date) |
| 185 (error "Cursor is not on a date!")))))) | 187 (error "Cursor is not on a date!")))))) |
| 186 arg))) | 188 arg))) |
| 187 | 189 |
| 188 (defun insert-yearly-hebrew-diary-entry (arg) | 190 (defun insert-yearly-hebrew-diary-entry (arg) |
| 189 "Insert an annual diary entry for the day of the Hebrew year corresponding | 191 "Insert an annual diary entry. |
| 190 to the date indicated by point. Prefix arg will make the entry nonmarking." | 192 For the day of the Hebrew year corresponding to the date indicated by point. |
| 193 Prefix arg will make the entry nonmarking." | |
| 191 (interactive "P") | 194 (interactive "P") |
| 192 (let* ((calendar-date-display-form | 195 (let* ((calendar-date-display-form |
| 193 (if european-calendar-style | 196 (if european-calendar-style |
| 194 '(day " " monthname) | 197 '(day " " monthname) |
| 195 '(monthname " " day))) | 198 '(monthname " " day))) |
| 204 (or (calendar-cursor-to-date) | 207 (or (calendar-cursor-to-date) |
| 205 (error "Cursor is not on a date!")))))) | 208 (error "Cursor is not on a date!")))))) |
| 206 arg))) | 209 arg))) |
| 207 | 210 |
| 208 (defun insert-islamic-diary-entry (arg) | 211 (defun insert-islamic-diary-entry (arg) |
| 209 "Insert a diary entry for the Islamic date corresponding to the date | 212 "Insert a diary entry. |
| 210 indicated by point. Prefix arg will make the entry nonmarking." | 213 For the Islamic date corresponding to the date indicated by point. |
| 214 Prefix arg will make the entry nonmarking." | |
| 211 (interactive "P") | 215 (interactive "P") |
| 212 (let* ((calendar-month-name-array calendar-islamic-month-name-array)) | 216 (let* ((calendar-month-name-array calendar-islamic-month-name-array)) |
| 213 (make-diary-entry | 217 (make-diary-entry |
| 214 (concat | 218 (concat |
| 215 islamic-diary-entry-symbol | 219 islamic-diary-entry-symbol |
| 220 (error "Cursor is not on a date!")))) | 224 (error "Cursor is not on a date!")))) |
| 221 nil t)) | 225 nil t)) |
| 222 arg))) | 226 arg))) |
| 223 | 227 |
| 224 (defun insert-monthly-islamic-diary-entry (arg) | 228 (defun insert-monthly-islamic-diary-entry (arg) |
| 225 "Insert a monthly diary entry for the day of the Islamic month corresponding | 229 "Insert a monthly diary entry. |
| 226 to the date indicated by point. Prefix arg will make the entry nonmarking." | 230 For the day of the Islamic month corresponding to the date indicated by point. |
| 231 Prefix arg will make the entry nonmarking." | |
| 227 (interactive "P") | 232 (interactive "P") |
| 228 (let* ((calendar-date-display-form | 233 (let* ((calendar-date-display-form |
| 229 (if european-calendar-style '(day " * ") '("* " day ))) | 234 (if european-calendar-style '(day " * ") '("* " day ))) |
| 230 (calendar-month-name-array calendar-islamic-month-name-array)) | 235 (calendar-month-name-array calendar-islamic-month-name-array)) |
| 231 (make-diary-entry | 236 (make-diary-entry |
| 237 (or (calendar-cursor-to-date) | 242 (or (calendar-cursor-to-date) |
| 238 (error "Cursor is not on a date!")))))) | 243 (error "Cursor is not on a date!")))))) |
| 239 arg))) | 244 arg))) |
| 240 | 245 |
| 241 (defun insert-yearly-islamic-diary-entry (arg) | 246 (defun insert-yearly-islamic-diary-entry (arg) |
| 242 "Insert an annual diary entry for the day of the Islamic year corresponding | 247 "Insert an annual diary entry. |
| 243 to the date indicated by point. Prefix arg will make the entry nonmarking." | 248 For the day of the Islamic year corresponding to the date indicated by point. |
| 249 Prefix arg will make the entry nonmarking." | |
| 244 (interactive "P") | 250 (interactive "P") |
| 245 (let* ((calendar-date-display-form | 251 (let* ((calendar-date-display-form |
| 246 (if european-calendar-style | 252 (if european-calendar-style |
| 247 '(day " " monthname) | 253 '(day " " monthname) |
| 248 '(monthname " " day))) | 254 '(monthname " " day))) |