Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 14954:a9102c34a5b6
Fix length of separator string.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Sun, 07 Apr 1996 22:31:50 +0000 |
| parents | 0d4ff7e4d6a3 |
| children | ab5975df6164 |
comparison
equal
deleted
inserted
replaced
| 14953:36e4b3043730 | 14954:a9102c34a5b6 |
|---|---|
| 172 "Coptic calendar equivalent of date diary entry." | 172 "Coptic calendar equivalent of date diary entry." |
| 173 t) | 173 t) |
| 174 | 174 |
| 175 (autoload 'diary-ethiopic-date "cal-coptic" | 175 (autoload 'diary-ethiopic-date "cal-coptic" |
| 176 "Ethiopic calendar equivalent of date diary entry." | 176 "Ethiopic calendar equivalent of date diary entry." |
| 177 t) | |
| 178 | |
| 179 (autoload 'diary-persian-date "cal-persian" | |
| 180 "Persian calendar equivalent of date diary entry." | |
| 177 t) | 181 t) |
| 178 | 182 |
| 179 (autoload 'diary-phases-of-moon "lunar" "Moon phases diary entry." t) | 183 (autoload 'diary-phases-of-moon "lunar" "Moon phases diary entry." t) |
| 180 | 184 |
| 181 (autoload 'diary-sunrise-sunset "solar" | 185 (autoload 'diary-sunrise-sunset "solar" |
| 476 (setq d (append d (cdr (car h))))) | 480 (setq d (append d (cdr (car h))))) |
| 477 (setq h (cdr h))) | 481 (setq h (cdr h))) |
| 478 d))) | 482 d))) |
| 479 (insert (if (= (point) (point-min)) "" ?\n) date-string) | 483 (insert (if (= (point) (point-min)) "" ?\n) date-string) |
| 480 (if date-holiday-list (insert ": ")) | 484 (if date-holiday-list (insert ": ")) |
| 481 (let ((l (current-column))) | 485 (let* ((l (current-column)) |
| 482 (insert (mapconcat 'identity date-holiday-list | 486 (longest 0)) |
| 483 (concat "\n" (make-string l ? ))))) | 487 (insert (mapconcat '(lambda (x) |
| 484 (let ((l (current-column))) | 488 (if (< longest (length x)) |
| 485 (insert ?\n (make-string l ?=) ?\n))))) | 489 (setq longest (length x))) |
| 490 x) | |
| 491 date-holiday-list | |
| 492 (concat "\n" (make-string l ? )))) | |
| 493 (insert ?\n (make-string (+ l longest) ?=) ?\n))))) | |
| 486 (if (< 0 (length (car (cdr (car entry-list))))) | 494 (if (< 0 (length (car (cdr (car entry-list))))) |
| 487 (insert (car (cdr (car entry-list))) ?\n)) | 495 (insert (car (cdr (car entry-list))) ?\n)) |
| 488 (setq entry-list (cdr entry-list)))) | 496 (setq entry-list (cdr entry-list)))) |
| 489 (set-buffer-modified-p nil) | 497 (set-buffer-modified-p nil) |
| 490 (goto-char (point-min)) | 498 (goto-char (point-min)) |