From: Glenn Morris <rgm@gnu.org>
Date: Tue, 1 Apr 2008 02:47:05 +0000 (+0000)
Subject: Comments.
X-Git-Tag: emacs-pretest-23.0.90~6721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bf276a50b36e858057a72633f194b0024d3f186b;p=emacs.git

Comments.
---

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 1d8589f35a5..c2d4e0c4f03 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -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 @@ To use this function, add it to `diary-display-hook'."
                        (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 @@ To use this function, add it to `diary-display-hook'."
                     ;; 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))