From eff756afa6d3b292aee7e32a76ebc0aab0d34845 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 1 Apr 2008 04:08:41 +0000 Subject: [PATCH] (fancy-diary-display): Use calendar-make-temp-face. --- lisp/calendar/diary-lib.el | 26 +++----------------------- 1 file changed, 3 insertions(+), 23 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index c2d4e0c4f03..4e4ae6d52de 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -939,30 +939,10 @@ To use this function, add it to `diary-display-hook'." :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)) -- 2.39.5