[mhc:00175] font-lock for MHC

[クリス <kurisu@xxxxxxxxxxxxxxxxxxxxxxxxx>]

クリスです。

From: Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>
Subject: [mhc:00174] Re: mhc on UNiX MAGAZINE 1999/10
Date: Wed, 22 Sep 1999 02:00:49 +0900

> 以前、ML に hilit19 の設定を投げましたが、font-lock 版を書いてる
> 方は御一報を。

こげな風にしてみました。どげな感じでしょうか?

---[from here]-----------------------------------------------------
(add-hook 'mew-summary-scan-sentinel-hook
	  'font-lock-fontify-buffer)

(make-face 'mhc-summary-sunday-face)
(make-face 'mhc-summary-saturday-face)
(set-face-foreground 'mhc-summary-sunday-face "red")
(set-face-foreground 'mhc-summary-saturday-face "blue")

(setq mhc-summary-font-lock-keywords
      '(("^.*\\(Sun\\|日 \\).*$" . 'mhc-summary-sunday-face)
	("^.*\\Sat.*$"           . 'mhc-summary-saturday-face)))

(add-hook 'mhc-summary-mode-hook
	  (function
	   (lambda ()
	     (make-local-variable 'font-lock-defaults)
	     (setq font-lock-defaults '(mhc-summary-font-lock-keywords t))
	     )))
---[end here]------------------------------------------------------

ところで、face を定義するのってどうするのがいいんでしょう。
上のやつでは make-face を使っていますが、font-lock.el では
defface というを使っているみたいです。

---------------------------------------------------------------
  九州大学大学院システム情報科学研究科情報工学専攻  栗栖 直士
  E-mail kurisu@xxxxxxxxxxxxxxxxxxxxxxxxx
---------------------------------------------------------------