[xyzzy:02440] Re: den8-viewer

[Seiya Suda <seiya.suda@xxxxxxxxxxx>]

山本さん、こんにちは。

        Thu, 29 Apr 1999 16:00:49 +0900 の
        [xyzzy:02439] Re: den8-viewer
        への返事です。

> > 		(message "Den8 を終了しました"))
> 
> 終了してないっす。;-)

引っ込めただけでした(^^;


> こんなふうにしたほうがいいです。

どーもです m(_ _)m。

find-buffer でバッファが殺されてないか見て、

> 			 (truncate (* (screen-height)
> 				      *den8-summary-window-ratio*)))

これは電八ビューワーの窓幅の調整かな?


以下、訂正版です(たぶん、これでいいんじゃないかな):

(defun toggle-den8 ()
 (interactive)
  (if (or (string= (buffer-name (selected-buffer)) "*Den8 View*")
		  (string= (buffer-name (selected-buffer)) "*Den8 Summary*"))
	  (progn
		(restore-winconf)
		(message "Den8 を引っ込めました"))
	(progn
	  (save-winconf)
	  (if (find-buffer "*Den8 Summary*")
		  (progn
			  (delete-other-windows)
			  (pop-to-buffer "*Den8 Summary*"
						 (truncate (* (screen-height)
						      *den8-summary-window-ratio*)))
			  (pop-to-buffer (find-buffer "*Den8 View*")))
		(den8-viewer)))))

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