Re: popup menu code

[Stefan Monnier]

>      (define-key menu [kill-region]
>        (cons "Cut"
>           '(when (and mark-active (not buffer-read-only)
>                      (call-interactively 'kill-region)))))

Does this work?  I know it does in easy-menus, but I don't think it does
in your case.  But even if it does, it's a bad idea.
Better use an `activate' property.  Check out the elisp documentation.
More specifically, look for `menu-item' in the index.

> (defun right-popup ()                 ;event
>    "Run the command selected from `right-popup-menu'."
>    (interactive)
>    (call-interactively (or (car (x-popup-menu t right-popup-menu))
>    'ignore)))

> (global-set-key [mouse-3] 'right-popup)

IIRC, you can get rid of right-popup and just do

  (global-set-key [mouse-3] right-popup-menu)


-- Stefan