Mercurial > emacs
comparison lisp/calendar/holidays.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 00c265302412 |
| children | e7d0572ccca5 d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 147 (eval (read-variable "Enter list name: ")) | 147 (eval (read-variable "Enter list name: ")) |
| 148 (cdr (assoc choice lists)))) | 148 (cdr (assoc choice lists)))) |
| 149 (name (if (string-equal choice "Equinoxes/Solstices") | 149 (name (if (string-equal choice "Equinoxes/Solstices") |
| 150 choice | 150 choice |
| 151 (if (member choice '("Ask" "")) | 151 (if (member choice '("Ask" "")) |
| 152 "Holidays" | 152 "Holidays" |
| 153 (format "%s Holidays" choice))))) | 153 (format "%s Holidays" choice))))) |
| 154 (list start-year end-year which name))) | 154 (list start-year end-year which name))) |
| 155 (message "Computing holidays...") | 155 (message "Computing holidays...") |
| 156 (let* ((holiday-buffer "*Holidays*") | 156 (let* ((holiday-buffer "*Holidays*") |
| 157 (calendar-holidays (if l l calendar-holidays)) | 157 (calendar-holidays (if l l calendar-holidays)) |
| 464 "Corpus Christi"))) | 464 "Corpus Christi"))) |
| 465 (output-list | 465 (output-list |
| 466 (filter-visible-calendar-holidays mandatory))) | 466 (filter-visible-calendar-holidays mandatory))) |
| 467 (if all-christian-calendar-holidays | 467 (if all-christian-calendar-holidays |
| 468 (setq output-list | 468 (setq output-list |
| 469 (append | 469 (append |
| 470 (filter-visible-calendar-holidays optional) | 470 (filter-visible-calendar-holidays optional) |
| 471 output-list))) | 471 output-list))) |
| 472 output-list))) | 472 output-list))) |
| 473 | 473 |
| 474 (defun holiday-greek-orthodox-easter () | 474 (defun holiday-greek-orthodox-easter () |