[xyzzy:04996] Re: ツールバーの設定について

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

日江さん、こんにちは。

	2000年8月21日(月)[01:58:17]の、
	[xyzzy:04991] ツールバーの設定について
	への返事です。

| とか、追加したところ、希望通りに動作してくれましたが、 こうい
| った使用方法は、正しいのでしょうか。

うーん、そうですね。今後、仕組みが変わる可能性はありま
すが、今のところは正しいです。

| それから、このツールバーで「テキスト折り返し」の設定の、「しな
| い」ボタンと、「ウィンドウの幅」ボタンを作りたいと思うのですが、
| 可能でしょうか。

(defvar-local tb-fold-column 80)

(defun tb-fold-non ()
  (interactive)
  (when (integerp (buffer-fold-width))
    (setq tb-fold-column (buffer-fold-width)))
  (set-buffer-fold-width nil))

(defun tb-fold-window ()
  (interactive)
  (when (integerp (buffer-fold-width))
    (setq tb-fold-column (buffer-fold-width)))
  (set-buffer-fold-width t))

(defun tb-fold-column ()
  (interactive)
  (set-buffer-fold-width tb-fold-column))

(defun tb-fold-non-update ()
  (and (null (buffer-fold-width)) :check))

(defun tb-fold-window-update ()
  (and (eq (buffer-fold-width) t) :check))

(defun tb-fold-column-update ()
  (and (integerp (buffer-fold-width)) :check))

とかやっといて、以下を追加すればできます。アイコンの番
号は適当に変更してください。なお、上のコードはなるべく
コンパイルしてください。

  ("折り返しなし" 10 tb-fold-non tb-fold-non-update)
  ("ウィンドウ幅で折り返し" 20 tb-fold-window tb-fold-window-update)
  ("指定位置で折り返し" 30 tb-fold-column tb-fold-column-update))))

-- 
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx