Mercurial > emacs
comparison lisp/calendar/lunar.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 6edefbc65dc4 |
| children | e7d0572ccca5 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 62 (start-month month) | 62 (start-month month) |
| 63 (start-year year)) | 63 (start-year year)) |
| 64 (increment-calendar-month end-month end-year 3) | 64 (increment-calendar-month end-month end-year 3) |
| 65 (increment-calendar-month start-month start-year -1) | 65 (increment-calendar-month start-month start-year -1) |
| 66 (let* ((end-date (list (list end-month 1 end-year))) | 66 (let* ((end-date (list (list end-month 1 end-year))) |
| 67 (start-date (list (list start-month | 67 (start-date (list (list start-month |
| 68 (calendar-last-day-of-month | 68 (calendar-last-day-of-month |
| 69 start-month start-year) | 69 start-month start-year) |
| 70 start-year))) | 70 start-year))) |
| 71 (index (* 4 | 71 (index (* 4 |
| 72 (truncate | 72 (truncate |
| 237 (calendar-phases-of-moon)))) | 237 (calendar-phases-of-moon)))) |
| 238 | 238 |
| 239 (defun diary-phases-of-moon (&optional mark) | 239 (defun diary-phases-of-moon (&optional mark) |
| 240 "Moon phases diary entry. | 240 "Moon phases diary entry. |
| 241 | 241 |
| 242 An optional parameter MARK specifies a face or single-character string to | 242 An optional parameter MARK specifies a face or single-character string to |
| 243 use when highlighting the day in the calendar." | 243 use when highlighting the day in the calendar." |
| 244 (let* ((index (* 4 | 244 (let* ((index (* 4 |
| 245 (truncate | 245 (truncate |
| 246 (* 12.3685 | 246 (* 12.3685 |
| 247 (+ (extract-calendar-year date) | 247 (+ (extract-calendar-year date) |