mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 23:50:36 -08:00
Code Issues Projects Releases Wiki Activity

(diary-fancy-display): Always run the hook.

Browse source
This commit is contained in:
Glenn Morris 2009-09-24 03:26:51 +00:00
parent 6125167ce2
commit 2157a2be64
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2009-09-24 Glenn Morris <rgm@gnu.org>
* calendar/diary-lib.el (diary-fancy-display): Always run the hook.
* term/ns-win.el (ns-reg-to-script): Define for compiler.
* mail/rmailmm.el (rmail-mime-multipart-handler): Accept the case where

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

@ -1019,8 +1019,11 @@ This is an option for `diary-display-function'."
(overlay-put
(make-overlay (match-beginning 0) (match-end 0))
'face temp-face)))))))
(or (eq major-mode 'diary-fancy-display-mode)
(diary-fancy-display-mode))
;; FIXME can't remember what this check was for.
;; To prevent something looping, or a minor optimization?
(if (eq major-mode 'diary-fancy-display-mode)
(run-hooks 'diary-fancy-display-mode-hook)
(diary-fancy-display-mode))
(calendar-set-mode-line date-string)
(message "Preparing diary...done"))))