From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Martin Stemplinger <mstemplingerNOSPAM@gmx.de>
Newsgroups: gmane.emacs.help
Subject: Re: Example using x-popup-menu needed
Date: Fri, 17 Oct 2003 18:32:42 +0200
Organization: Akademisches Sinfonie-Orchester Muenchen
Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Message-ID: <ur81b3jv9.fsf@gmx.de>
References: <%aMjb.86442$gv5.44941@fed1read05>
	<EwUjb.65175$pv6.1917@twister.nyc.rr.com>
NNTP-Posting-Host: deer.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: sea.gmane.org 1066409474 26127 80.91.224.253 (17 Oct 2003 16:51:14 GMT)
X-Complaints-To: usenet@sea.gmane.org
NNTP-Posting-Date: Fri, 17 Oct 2003 16:51:14 +0000 (UTC)
Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Oct 17 18:51:10 2003
Return-path: <help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by deer.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1AAXoj-0007nk-00
	for <geh-help-gnu-emacs@m.gmane.org>; Fri, 17 Oct 2003 18:51:09 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.24)
	id 1AAXjQ-0000Ba-9b
	for geh-help-gnu-emacs@m.gmane.org; Fri, 17 Oct 2003 12:45:40 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!bloom-beacon.mit.edu!nycmny1-snh1.gtei.net!nycmny1-snf1.gtei.net!news.gtei.net!colt.net!peernews3.colt.net!newsfeed.stueberl.de!fu-berlin.de!uni-berlin.de!d3c8b.d.pppool.DE!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 31
Original-NNTP-Posting-Host: d3c8b.d.pppool.de (80.184.60.139)
Original-X-Trace: news.uni-berlin.de 1066408253 26705319 80.184.60.139 (16 [177771])
X-URL: http://www.aso-muenchen.de
X-Attribution: Martin
Mail-Copies-To: never
User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3.50 (windows-nt)
Cancel-Lock: sha1:Kst6aEusGxhWFCsbl8/Vo4epNoE=
Original-Xref: shelby.stanford.edu gnu.emacs.help:117367
Original-To: help-gnu-emacs@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.1.2
Precedence: list
List-Id: Users list for the GNU Emacs text editor  <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org
Xref: main.gmane.org gmane.emacs.help:13297
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:13297

On Fr Okt 17 2003 at 18:11, Bruce Ingalls
<bingalls@fit-zones.NO-SPAM.com> wrote: 

>    (defun right-popup ()
>      "Show a popup menu of commands. See also `choose-from-menu'." 
>      (interactive)
>      (eval-expression
>       (car
>        (read-from-string
>         (choose-from-menu
> 	"Commands"
> 	(list
> 	 (cons "Copy                C-insert" "(call-interactively 'copy-region-as-kill)")
> 	 (cons "Goto Line"		"(call-interactively 'goto-line)")
> 	 (cons "Paste/yank        S-insert"	"(yank)")
> 	 (cons "Redo"			"(redo)")
> 	 (cons "Search files"		"(call-interactively 'grep)")
> 	 (cons "Undo                 C-_"	"(undo)")
> 	 (cons "Word completion M-/"	"(call-interactively 'dabbrev-expand)")
> 	 ))))))
>
>    (global-set-key [mouse-3] 'right-popup)
>

Really cool! But the function redo doesn't exist on my emacs
(GNU Emacs 21.3.50.1 (i386-msvc-nt5.1.2600) of 2003-09-12 on
ALABANDA).

Any idea?
-- 
Remove NOSPAM to reply by mail