[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Example using x-popup-menu needed
From: |
Martin Stemplinger |
Subject: |
Re: Example using x-popup-menu needed |
Date: |
Fri, 17 Oct 2003 18:32:42 +0200 |
User-agent: |
Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3.50 (windows-nt) |
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