X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/2d7dc0713497a7ff1d03c4adeb9d2f470611d9e5..51603539e658892d93fc7691e0ce2772df6ed3c0:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index 0903178..d4a313e 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -380,7 +380,10 @@
 ;; Date format fiddling.
 
 (setq european-calendar-style t
-      calendar-date-style 'european)
+      calendar-date-style 'european
+      calendar-time-display-form
+      '(24-hours ":" minutes
+	(if time-zone " (") time-zone (if time-zone ")")))
 
 (setq diary-date-forms '((day "[-/]" month "[^-/0-9]")
 			 (day " *" monthname "[ \t]*\\(\^M\\|\n\\)")
@@ -394,8 +397,12 @@
 
 (add-hook 'diary-display-hook 'fancy-diary-display)
 (setq diary-list-include-blanks t)
-(add-hook 'list-diary-entries-hook 'include-other-diary-files)
-(add-hook 'mark-diary-entries-hook 'mark-included-diary-files)
+(cond ((mdw-emacs-version-p 23 1)
+       (add-hook 'list-diary-entries-hook 'diary-include-other-diary-files)
+       (add-hook 'mark-diary-entries-hook 'diary-mark-included-diary-files))
+      (t
+       (add-hook 'list-diary-entries-hook 'include-other-diary-files)
+       (add-hook 'mark-diary-entries-hook 'mark-included-diary-files)))
 
 ;; Appointment management.