Better ChangeLog Files

[syinit] / 12-misc-sy.el

diff --git a/12-misc-sy.el b/12-misc-sy.el
index 1b93220..55635fd 100644 (file)
--- a/12-misc-sy.el
+++ b/12-misc-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Tuesday Mar 17, 2020 13:38:11 steve>
+;; Time-stamp: <Thursday Mar 19, 2020 20:55:58 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/12-misc-sy.html>
 ;;   Git Repo: git clone https://git.sxemacs.org/syinit
@@ -368,7 +368,20 @@
 ;:*======================
 ;:* Sane ChangeLogs
 (when (featurep 'mule)
-  (add-to-list 'file-coding-system-alist '("ChangeLog" . binary)))
+  (add-to-list 'file-coding-system-alist
+              (cons "ChangeLog.[[:alnum:]]+" '(utf-8 . utf-8))))
+
+(add-to-list 'auto-mode-alist 
+            '("ChangeLog[\\.-][[:alnum:]]+" . change-log-mode))
+
+(defun sy-change-log-mode-hook ()
+  (save-excursion
+    (when (re-search-forward "^commit [0-9a-f]+" 1000 t)
+      (set (make-local-variable 'font-lock-defaults)
+          '(sy-git-log-font-lock-keywords t t)))))
+
+(add-hook 'change-log-mode-hook #'sy-change-log-mode-hook)
+
 
 ;:*======================
 ;:* Directory Abbrevs