[MD:1015]ChangeLog mode settings for Meadow developers.

[Miyashita Hisashi(宮下 尚:HIMI) <himi@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Meadow開発者の方のためのChangeLog設定。 :-)

(setq auto-mode-alist
      (nconc
       '(("ChangeLog\\..*" . change-log-mode))
       auto-mode-alist))

(require 'add-log)

(fset 'find-change-log-original (symbol-function 'find-change-log))
(defun find-change-log (&optional file-name)
  (let* ((func (lambda (file)
		 (let ((change-log-default-name file))
		   (find-change-log-original))))
	 (cand-1 (funcall func "ChangeLog.Meadow"))
	 (cand-2 (funcall func nil)))
    (if (and (not file-name) (file-exists-p cand-1))
	cand-1
      cand-2)))

from himi