Re: Example using x-popup-menu needed

[Martin Stemplinger]

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