Takashi Hiromatsu
matsu****@ca2*****
2005年 7月 27日 (水) 11:09:43 JST
> > 私は、e-lisp の流儀にはものすごく疎くて、素人同然です。なので、どんどん修正 > > して頂けると有り難いです。 > > 次の点を書き換えた carbon-font.el を > http://www.mew.org/~kazu/carbon-font.el > に置きました。 > > ・carbon-font-append-factor() を while ループにした 有難うございます。 > ・fontset の名前からサイズを取り除いた > シフト＋クリックでフォントを一覧表示すると、 > サイズが2回ではなく一回になります。 > > 後者の弊害として、set-default-font() でサイズを指定できません。なので、 > carbon-font-defined-sizes の先頭にデフォルトのサイズを指定して下さい。 > > 以下で、ヒラギノ丸の 14pt になります。 > > (setq carbon-font-defined-sizes '(14 12 16 18 20 24)) carbon-fontをロードする前に、定義する必要が有りますが、これでは、パッケージ の場合、ユーザーの .emacsで指定できないので、困ります。 (set-default-font "-*-*-medium-r-normal--8-*-*-*-*-*-fontset-hiraginomaru") の様に、フルフォント名指定で回避すべきだと思います。 デフォルトサイズも、12に変更しました。 > (set-default-font "fontset-hiraginomaru") あと、set-fontset-font があのままでは、サイズ指定に失敗するfontが有りますの で、変更させていただきました。 この内容でcvsに登録させていただきました。 廣松
