[xyzzy:01352] Re: buffer-selector

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

須田さん、こんにちは。

    Wed, 2 Dec 1998 18:05:40 +0900 の
   “[xyzzy:01351] buffer-selector”
    への返事です.


| どうすればいいのでしょう？

こんな感じですか?
どうでもいいけど、メニュー好きですね(^^;

#| 追加 |#
	   (add-menu-separator menu 'buffer-sep)
	   (let ((popup (create-popup-menu 'buffer-menu)))
	     (dolist (b (buffer-list))
	       (let ((menu-item (buffer-name b)))
		 (add-menu-item popup 'buffer-menu
				menu-item
				#'(lambda ()
				    (interactive)
				    (pop-to-buffer menu-item)))))
	     (add-popup-menu menu popup "Buffers"))

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