From xemacs-m  Wed May 28 21:35:04 1997
Received: from bittersweet.inetarena.com (karlheg@bittersweet.inetarena.com [206.129.216.38])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id VAA22341
	for <xemacs-beta@xemacs.org>; Wed, 28 May 1997 21:35:00 -0500 (CDT)
Received: (from karlheg@localhost)
	by bittersweet.inetarena.com (8.8.5/8.8.5) id TAA15087;
	Wed, 28 May 1997 19:34:10 -0700
Date: Wed, 28 May 1997 19:34:10 -0700
Message-Id: <199705290234.TAA15087@bittersweet.inetarena.com>
From: "Karl M. Hegbloom" <karlheg@inetarena.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
To: Tibor Polgar <tibor@alteon.com>, <xemacs-beta@xemacs.org>
Subject: Re: packages to add...
In-Reply-To: <9705280127.AA23874@mtlyell.acteon.com>
References: <199705190009.UAA23755@postman.osf.org>
	<u7oha3vnkj.fsf@cenatls.cena.dgac.fr>
	<m23er9zi6n.fsf@altair.xemacs.org>
	<l2iv05q6nb.fsf_-_@chaos.hut.fi>
	<9705280127.AA23874@mtlyell.acteon.com>
X-Mailer: VM 6.31 under 20.3 XEmacs Lucid (beta2)
X-Face: /Q}=yl}1_v7nP)xXo5XjG8+tl@=uVu7o5u6)f]zN?+<hB!K.m9:[|*p34jVN`O;:XZXVSy>/\R>qDt(t8w!-i{(y0"`jFw^uk8inzO9wXabd'CdjUWfC\GHi:6nO*YC89#-qD>Q4r%9!V"<RYJ=7D#$";q=zML5'!=wvXk^$`6FT=5CMofQX)WUKt0p:OKl.mFOXx/D
Comments: Hyperbole mail buttons accepted, v04.023.

>>>>> "Tibor" == Tibor Polgar <tibor@alteon.com> writes:

    Tibor> If we are on the topic of packages to add, FSF emacs has a
    Tibor> great mouse driven buffer selection function called
    Tibor> mouse-buffer-menu.  Its full of fsf emacs cruft but the
    Tibor> general idea is good: do a popup buffer select menu.  Don't
    Tibor> know if we have an equivalent in XEmacs.

(defun ask-erase-buffer ()
  (interactive)
  (if (yes-or-no-p-dialog-box 
       (concat "Erase "
	       (buffer-name (current-buffer))
	       " Buffer?"))
      (erase-buffer)))

(add-menu-button '("Buffers" )
		 ["Erase this buffer" ask-erase-buffer t])
(add-menu-button '("Buffers")
		 ["----" nil nil])


(define-key global-map '(control button3) 'popup-buffer-menu)

-- 
Karl M. Hegbloom <karlheg@inetarena.com>
http://www.inetarena.com/~karlheg
Portland, OR  USA
Debian GNU 1.2  Linux 2.1.36 AMD K5 PR-133

