# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1207018025 0
# Node ID ef849082f38b61c1a557714f5d5300b6670ae9c1
# Parent  2fe1b51b87716c96c2d15692a81307ce8b978e35
Comments.

diff -r 2fe1b51b8771 -r ef849082f38b lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Tue Apr 01 02:46:29 2008 +0000
+++ b/lisp/calendar/diary-lib.el	Tue Apr 01 02:47:05 2008 +0000
@@ -26,8 +26,7 @@
 
 ;;; Commentary:
 
-;; This collection of functions implements the diary features as described
-;; in calendar.el.
+;; See calendar.el.
 
 ;;; Code:
 
@@ -944,6 +943,7 @@
                        (faceinfo marks)
                        temp-face)
                   (when marks
+                    ;; FIXME duplicate code with calendar.el.
                     (setq temp-face (make-symbol
                                      (apply
                                       'concat "temp-face-"
@@ -956,6 +956,7 @@
                     ;; Remove :face info from the marks,
                     ;; copy the face info into temp-face
                     (while (setq faceinfo (memq :face faceinfo))
+                      ;; FIXME not read.
                       (copy-face (read (nth 1 faceinfo)) temp-face)
                       (setcar faceinfo nil)
                       (setcar (cdr faceinfo) nil))