[elpa] externals/excorporate d0a8709 39/93: excorporate-diary: Always use diary-fancy-display

[Stefan Monnier]

branch: externals/excorporate
commit d0a8709a0331180424f48da754144a8120a4f95a
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    excorporate-diary: Always use diary-fancy-display
    
    * packages/excorporate/excorporate-diary.el
    (excorporate-diary-enable): Ensure diary-display-function is
    diary-fancy-display; warn and override if not.
---
 excorporate-diary.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/excorporate-diary.el b/excorporate-diary.el
index caaae20..e3435be 100644
--- a/excorporate-diary.el
+++ b/excorporate-diary.el
@@ -229,6 +229,12 @@ ARGUMENTS are the arguments to `diary-view-entries'."
              #'exco-diary-diary-view-entries-override)
   (add-hook 'diary-list-entries-hook #'diary-sort-entries)
   (add-hook 'diary-list-entries-hook #'diary-include-other-diary-files)
+  (unless (eq diary-display-function 'diary-fancy-display)
+    (warn (format
+          (concat "Excorporate diary support needs diary-fancy-display"
+                  " but diary-display-function is currently %S; overriding")
+          diary-display-function))
+    (customize-set-variable 'diary-display-function 'diary-fancy-display))
   (appt-activate 1)
   (message "Excorporate diary support enabled."))