Re: hook for C-Mouse-3?

[Oleksandr Gavenko]

On 2010-07-26 0:42, Oleksandr Gavenko wrote:
> On 2010-07-26 0:35, Oleksandr Gavenko wrote:
> > I discover 'imenu' useful with (imenu-add-menubar-index).
> >
> > But also I like save visible display area by:
> >
> > (menu-bar-mode -1) ; This switch IMPORTANT for this mail.
> > (tool-bar-mode -1)
> >
> > As menu hidden to access menu items I use
> > C-Mouse-3.
> >
> > Under 'imenu.el' you can find such code:
> >
> > (defun imenu-add-to-menubar (name)
> > ...
> > (add-hook 'menu-bar-update-hook 'imenu-update-menubar)
> > ... )
> >
> > so imenu items in menu updated by 'menu-bar-update-hook'
> > which seems not invoked in menu-bar disabled.
> >
> > Is there any hook when opened context menu?
> I found solution by force invoking 'menu-bar-update-hook':
>
> (when window-system
> (mapc (lambda (hook)
> (add-hook hook
> (lambda ()
> (imenu-add-menubar-index)
> (run-hooks 'menu-bar-update-hook)
> ) ))
> my-devel-mode-hook-list)
> )
>
> where
>
> (defvar my-devel-mode-hook-list
> '(
> outline-mode-hook
> sh-mode-hook script-mode-hook
> c-mode-hook c++-mode-hook java-mode-hook
> python-mode-hook
> makefile-mode-hook makefile-gmake-mode-hook
> lisp-mode-hook emacs-lisp-mode-hook)
> "List of development mode hooks.")
Also use mouse to see imenu terrible.
After some reading doc and mouse.el I found the way
invoke menu by keyboard:

(when window-system
  (defun my-popup-menu ()
    (interactive)
    (popup-menu
     (mouse-menu-bar-map) ;; (mouse-menu-major-mode-map)
     (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window 
(buffer-name)))))
  (global-set-key [f10] 'my-popup-menu)
 )

It easy move by arrows up/down by list and
open/close sublist by right/left arrows!

--
Best regards!