# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1207022921 0
# Node ID a56e8caca83b0223c20b81824f90c4d48e012dca
# Parent  5aa73e9a671536a76b1441012b2546372df8fa06
(fancy-diary-display): Use calendar-make-temp-face.

diff -r 5aa73e9a6715 -r a56e8caca83b lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Tue Apr 01 02:58:32 2008 +0000
+++ b/lisp/calendar/diary-lib.el	Tue Apr 01 04:08:41 2008 +0000
@@ -939,30 +939,10 @@
                                  :type 'diary-entry)
                 (insert this-entry ?\n))
               (save-excursion
-                (let* ((marks (nth 4 entry))
-                       (faceinfo marks)
-                       temp-face)
+                (let ((marks (nth 4 entry))
+                      temp-face)
                   (when marks
-                    ;; FIXME duplicate code with calendar.el.
-                    (setq temp-face (make-symbol
-                                     (apply
-                                      'concat "temp-face-"
-                                      (mapcar (lambda (sym)
-                                                (if (stringp sym)
-                                                    sym
-                                                  (symbol-name sym)))
-                                              marks))))
-                    (make-face temp-face)
-                    ;; 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))
-                    (setq marks (delq nil marks))
-                    ;; Apply the font aspects.
-                    (apply 'set-face-attribute temp-face nil marks)
+                    (setq temp-face (calendar-make-temp-face marks))
                     (search-backward this-entry)
                     (overlay-put
                      (make-overlay (match-beginning 0) (match-end 0))