bug#7691: 24.0.50; x-popup-menu with keymap - :help keyword

[Lars Ingebrigtsen <larsi@gnus.org>]

"Drew Adams" <drew.adams@oracle.com> writes:

> And keywords seem to work OK - except for :help.  Example:
>
> (defun eee (event)
>   (interactive "e")
>   (x-popup-menu
>    event '(keymap "The Menu"
>     (foo menu-item "Foo" 'forward-char
>          :enable pop-up-frames
>          :help "WHY DOESN'T THIS SHOW UP?"))))
>
> (global-set-key [(control mouse-3)] nil)
> (global-set-key [(control down-mouse-3)] 'eee)
>
> Then `C-mouse-3'.  Turn `pop-up-frames' on and off to see that :enable
> works.
>
> But put the pointer over item `Foo' in the menu and you will not see the
> :help displayed. 

This seems like it has been fixed now.

(defun eee (event)
  (interactive "e")
  (x-popup-menu
   event '(keymap "The Menu"
    (foo menu-item "Foo" forward-char
         :enable pop-up-frames
         :help "WHY DOESN'T THIS SHOW UP?"))))

(global-set-key [(control mouse-3)] nil)
(global-set-key [(control down-mouse-3)] 'eee)

works for me.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no