Re: Example using x-popup-menu needed

[Martin Stemplinger]

On Fr Okt 17 2003 at 22:14, Stefan Monnier <monnier@iro.umontreal.ca> wrote:

> You mean (x-popup-menu
>           t (list menu-title
>                   (cons menu-title
>                         (mapcar (lambda (item)
>                                   (if (consp item) item
>                                     (cons item item)))
>                                 item-list))))
>
>
> You mean
>
>   (call-interactively
>    (choose-from-menu "Commands"
>                      '(("Copy             C-insert" . copy-region-as-kill)
>                        ("Goto Line"                 . goto-line)
>                        ("Paste/Yank       S-insert" . yank)
>                        ("Redo"                      . redo)
>                        ("Search Files"              . grep)
>                        ("Undo             C-_"      . undo)
>                        ("Word Completion  M-/"      . dabbrev-expand))))
>
>>    (global-set-key [mouse-3] 'right-popup)
>
> If you define `right-popup' as a menu keymap, you'll save yourself
> the trouble of calling the commands and you'll get the hotkeys for free.
>
>
>         Stefan

Would you mind to post a complete example? I tried to insert your code
but obviously made some mistake :-(

Thanks
Martin
-- 
Remove NOSPAM to reply by mail