Mercurial > emacs
changeset 92963:9b1631fe02a8
(cal-html-insert-link-yearpage, (cal-html-htmlify-list): Doc fix.
(cal-html-htmlify-entry): Use nth.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 15 Mar 2008 02:57:42 +0000 |
| parents | b3d9a4a54d89 |
| children | 943c6058b43a |
| files | lisp/calendar/cal-html.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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)