[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-html.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-html.el,v |
Date: |
Sat, 15 Mar 2008 02:57:42 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/03/15 02:57:42
Index: cal-html.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-html.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- cal-html.el 13 Mar 2008 05:43:00 -0000 1.7
+++ cal-html.el 15 Mar 2008 02:57:42 -0000 1.8
@@ -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)