mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 13:10:57 -08:00
Code Issues Projects Releases Wiki Activity

(fancy-diary-display): Use calendar-make-temp-face.

Browse source
This commit is contained in:
Glenn Morris 2008-04-01 04:08:41 +00:00
parent aafb0703bf
commit eff756afa6
1 changed files with 3 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/calendar/diary-lib.el
View file

@ -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))