From 851335187fbfd4bb27b988073f746c3b8fe46d32 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 15 Mar 2008 02:57:42 +0000 Subject: [PATCH] (cal-html-insert-link-yearpage, (cal-html-htmlify-list): Doc fix. (cal-html-htmlify-entry): Use nth. --- lisp/calendar/cal-html.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/calendar/cal-html.el b/lisp/calendar/cal-html.el index 8eff4233601..d2fb93acd66 100644 --- a/lisp/calendar/cal-html.el +++ b/lisp/calendar/cal-html.el @@ -182,7 +182,7 @@ the link points to a different year and so has a directory part." (defun cal-html-insert-link-yearpage (month year) - "Insert a link to index page for four-digit YEAR, tagged using MONTH name." + "Insert a link tagged with MONTH name, to index page for four-digit YEAR." (insert (cal-html-h1 (format "%s %s" (calendar-month-name month) @@ -314,11 +314,11 @@ Characters are replaced according to `cal-html-html-subst-list'." "Convert a diary entry ENTRY to html with the appropriate class specifier." (let ((start (cond - ((string-match "block" (car (cddr entry))) "BLOCK") - ((string-match "anniversary" (car (cddr entry))) "ANN") + ((string-match "block" (nth 2 entry)) "BLOCK") + ((string-match "anniversary" (nth 2 entry)) "ANN") ((not (string-match - (number-to-string (car (cddr (car entry)))) - (car (cddr entry)))) + (number-to-string (nth 2 (car entry))) + (nth 2 entry))) "NO-YEAR") (t "NORMAL")))) (format "%s" start @@ -326,7 +326,7 @@ Characters are replaced according to `cal-html-html-subst-list'." (defun cal-html-htmlify-list (date-list date) - "Return a string of concatenated, HTMLified diary entries. + "Return a string of concatenated, HTML-ified diary entries. DATE-LIST is a list of diary entries. Return only those matching DATE." (mapconcat (lambda (x) (cal-html-htmlify-entry x)) (let (result) -- 2.39.2