[xyzzy:02434] Re: den8-viewer

[Seiya Suda <seiya.suda@xxxxxxxxxxx>]

miiさん、こんにちは。

        Wed, 28 Apr 1999 13:38:16 +0900 の
        [xyzzy:02432] Re: den8-viewer
        に関するメールにお答えします。

> ところで、den8-viewer を抜けるのには、どうするのが美しいのでしょうか。
> 現在、C-x C-k, C-x C-o, C-x C-k, C-x 1 こんなことしてますけど、
> かなり美しくないぁと思うこのごろです。

こっちではこんなのを作ってます。美しくはないけど。一例として。
参考になるかどうかわかりません(^^:

--------------------------------------------------------
(defun toggle-den8 ()
 (interactive)
 (if (and (find-buffer "*Den8 View*")
		   (find-buffer "*Den8 Summary*"))
	  (progn
		(get-buffer-window "*Den8 View*")
		(when (> (count-windows) 1) 
		  (delete-window))
		(set-buffer "*Den8 View*")
		(delete-buffer (selected-buffer))
		(message "Den8 View を終了しました")
		(get-buffer-window "*Den8 Summary*")
		(when (> (count-windows) 1) 
		  (delete-window))
		(set-buffer "*Den8 Summary*")
		(delete-buffer (selected-buffer))
		(message "Den8 Summary を終了しました"))
	(den8-viewer)))

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