2083 

  2083 

  2084 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  2084 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  2085 (message "imenu")

  2085 (message "imenu")

  2086 

  2086 

  2087 (defun my-imenu-to-menubar ()

  2087 (defun my-imenu-to-menubar ()

  2090     (imenu-add-menubar-index)

  2089     (imenu-add-menubar-index)

  2091     (run-hooks 'menu-bar-update-hook) ))

  2090     (run-hooks 'menu-bar-update-hook) ))

  2092 

  2091 

  2093 (require 'imenu)

  2092 (require 'imenu)

  2094 (mapc (lambda (hook) (add-hook hook 'my-imenu-to-menubar))

  2093 (mapc (lambda (hook) (add-hook hook 'my-imenu-to-menubar))