# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1205549862 0
# Node ID 9b1631fe02a8f4780531e9f86e760e1a799e0adb
# Parent  b3d9a4a54d896fe4af43eb56b7cb1d06be441271
(cal-html-insert-link-yearpage, (cal-html-htmlify-list): Doc fix.
(cal-html-htmlify-entry): Use nth.

diff -r b3d9a4a54d89 -r 9b1631fe02a8 lisp/calendar/cal-html.el
--- a/lisp/calendar/cal-html.el	Sat Mar 15 02:57:13 2008 +0000
+++ b/lisp/calendar/cal-html.el	Sat Mar 15 02:57:42 2008 +0000
@@ -182,7 +182,7 @@
 
 
 (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 @@
   "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 "<span class=%s>%s</span>" start
@@ -326,7 +326,7 @@
 
 
 (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)