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)) |