[mhc:00806] Re: faces of calender

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From: Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:00800] Re: faces of calender
Message-ID: <20000718182114T.nom@xxxxxxxxxxxxxxxxxxx>
Date: Tue, 18 Jul 2000 18:21:14 +0900

乃村> ということで、任意の組み合わせをしたい人のために、
乃村> current に入れてみました。
乃村> 
乃村> (defvar mhc-face-effect-alist
乃村>   ;;             fg      bg        bold  talic  ul
乃村>   '((today    . (nil     "gray"    nil   nil    nil))
乃村>     (busy     . (nil      nil      t     nil    nil))))

これなのですが、私の 
emacs-version => "21.2  (beta34) \"Molpe\" XEmacs Lucid" 
では、(default 設定でも)エラーになります。

mhc-face.el の mhc-face-get-effect() の
(make-face-bold new-face nil t)
(make-face-italic new-face nil t)
の部分でエラーになるのですが、

Emacs 20.7  => (make-face-bold FACE &optional FRAME NOERROR)
XEmacs 21.2 => (make-face-bold FACE &optional LOCALE TAGS)

という違いがあるからです。(TAGS の意味はわからない ^^;)

(make-face-bold new-face) とすると XEmacs でも動くのですが、
今度は emacs -nw のとき error になりますね。
ちなみに xemacs -nw は大丈夫です。

乃村> nom # ややオーバースペックか?

# たしかに :-)

P.S.
  (let ((new-face (intern (concat "mhc-effect-"
				  (symbol-name face) "-"
				  (symbol-name effect))))

で face の名前が mhc-effect-bold-busy とかなった方が良いと思う。


P.P.S.
CVS 先端の mhc-ps.el を改造しました。大きな変更点は

1. 今月のような第6週まである月もちゃんと印刷出来る。

2. Win32 でも以下の設定で動く。
   (setq mhc-ps-preview-command "fiber.exe")
   (setq mhc-ps-preview-command-arguments '("-s"))

です。ご意見、ご要望お願いします。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)