From 72fb78ceaf11d157cacecbe8ccf835057961fcc1 Mon Sep 17 00:00:00 2001 From: "Edward M. Reingold" Date: Sun, 7 Apr 1996 22:31:50 +0000 Subject: [PATCH] Fix length of separator string. --- lisp/calendar/diary-lib.el | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index b83a24494d9..7d09c1e0ceb 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -176,6 +176,10 @@ The holidays are those in the list `calendar-holidays'." "Ethiopic calendar equivalent of date diary entry." t) +(autoload 'diary-persian-date "cal-persian" + "Persian calendar equivalent of date diary entry." + t) + (autoload 'diary-phases-of-moon "lunar" "Moon phases diary entry." t) (autoload 'diary-sunrise-sunset "solar" @@ -478,11 +482,15 @@ This function is provided for optional use as the `diary-display-hook'." d))) (insert (if (= (point) (point-min)) "" ?\n) date-string) (if date-holiday-list (insert ": ")) - (let ((l (current-column))) - (insert (mapconcat 'identity date-holiday-list - (concat "\n" (make-string l ? ))))) - (let ((l (current-column))) - (insert ?\n (make-string l ?=) ?\n))))) + (let* ((l (current-column)) + (longest 0)) + (insert (mapconcat '(lambda (x) + (if (< longest (length x)) + (setq longest (length x))) + x) + date-holiday-list + (concat "\n" (make-string l ? )))) + (insert ?\n (make-string (+ l longest) ?=) ?\n))))) (if (< 0 (length (car (cdr (car entry-list))))) (insert (car (cdr (car entry-list))) ?\n)) (setq entry-list (cdr entry-list)))) -- 2.39.2