[mhc:00390] Re: mhc-snap20000209

[Yoshiaki Kasahara <kasahara@xxxxxxxxxxxxxxxxx>]

笠原＠九大です。

On Wed, 9 Feb 2000 18:34:57 +0900,
	Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx> said:

>     + mhc-face.el の追加。各種 face の設定用変数の追加。
> 	mhc-category-face-alist, mhc-symbol-face-alist

これですが、

*Alist to rule the catgegory-to-face conversion.
Each element should have the form
  (CATEGORY-STRING . (PARENT FG BG FONT BOLD UNDERLINED STIPPLE))
mhc will define mhc-summary-category-face-(downcase CATEGORY-STRING)
in setup time.

と書いてあるんだけど FONT っていう引数は実際には無いですよね。

(defun mhc-face-make-face-from-symbol (symbol prop)
  (let ((parent  (nth 0 prop))
        (fg      (nth 1 prop))
        (bg      (nth 2 prop))
        (bold    (nth 3 prop))
        (uline   (nth 4 prop))
        (stipple (nth 5 prop))
        (face    nil))
    (setq face (if parent (copy-face parent symbol) (make-face symbol)))
    (if fg      (set-face-foreground  face fg))
    (if bg      (set-face-background  face bg))
    (if bold    (set-face-bold-p      face bold))
    (if uline   (set-face-underline-p face uline))
    (if stipple (set-face-stipple     face stipple))
    face))

になってますんで。

あと、少なくとも xemacs-21.2 には set-face-bold-p という関数はないので、
bold にしようとすると怒られました。make-face-bold ?

かさはら