Mercurial > emacs

changeset 93493:ef849082f38b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Comments.
author Glenn Morris <rgm@gnu.org>
date Tue, 01 Apr 2008 02:47:05 +0000
parents 2fe1b51b8771
children 101c1d082feb
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))