Re: hook for C-Mouse-3?

[Oleksandr Gavenko <gavenkoa@gmail.com>]

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!