Gutter only w3m buffer (was Re: tab browser *MODOKI* on Meadow)

[ari@xxxxxxxxxxxxxxxx (ARISAWA Akihiro)]

>>>>> In [emacs-w3m : No.02142] 
>>>>>	ari@mbf.sphere.ne.jp (ARISAWA Akihiro) wrote:

白井さん> w3m の時だけタブブラウザ用の gutter を出すのってどうやれば良
白井さん> いのでしょうか？

ari> (add-hook 'w3m-mode-hook
ari> 	  '(lambda ()
ari> 	     (set-gutter-element-visible-p default-gutter-visible-p
ari> 					   'buffers-tab t (current-buffer))))

ari> でどうかと思ったのですが、何かオカシイですね(^^;

buffers-tab の表示/非表示は frame/window/buffer 単位で制御できるけど、
`update-tab-in-gutter' が frame 単位でしか制御できないためでした。

無理矢理感が漂いますが、以下のようにすると一応動きました。
;; *w3m* から C-x 5 2 した時は gutter が出ません(^^;

(defadvice update-tab-in-gutter
  (around w3m-xmas-inherit-gutter-visible-p-from-window (frame) activate)
  (let ((gutter-is-disable-in-frame-but-enable-in-window
	 (and
	  (not (specifier-instance default-gutter-visible-p frame))
	  (eq frame (selected-frame))
	  (specifier-instance default-gutter-visible-p))))
    (when gutter-is-disable-in-frame-but-enable-in-window
      (set-gutter-element-visible-p default-gutter-visible-p
				    'buffers-tab t frame))
    ad-do-it
    (when gutter-is-disable-in-frame-but-enable-in-window
      (set-gutter-element-visible-p default-gutter-visible-p
				    'buffers-tab nil (selected-frame)))))

-- 
有沢 明宏