[Date Prev] [Date Index] [Date Next]
[Thread Prev] [Thread Index] [Thread Next]

[xyzzy:07316] Re: xyzzy ボールド化計画



こんばんは。
自己レスです。

> (add-hook '*text-mode-hook*
> 	  #'(lambda () (interactive)
> 	      (set-text-attribute (point-min) (point-max)
> 				  'bolden
> 				  :bold t)))
> 
> ただ、これだけだと、point-max 以降に追加したのが
> ボールドにならないので、さらに次も追加してます。

これがうまくいかない場合が多いので、
新潮文庫のCDには1500円で太明朝がついてくるぞ、
しかし暑いから買いに行くのはやだねとか
いろいろ調べて苦しんでいたのですが、

フトかんがえて、

(add-hook '*text-mode-hook*
	  #'(lambda () (interactive)
	      (set-text-attribute (point-min) (+ (point-min) 10000000)
				  'bolden
				  :bold t)))
 
こんなふうにしてみたところ、EOFの直前はうまくいかないものの、
その前の方に挿入する場合はうまくいくのを発見しました。

こうすると、post-command-hook はいらないようです。

10000000 という数字をさらに 
100000000000 くらいにすると
評価さえしてくれないようですが。。。。

------------------
須田誠也(Seiya Suda)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/

Index Home