--- a/.emacs-my Mon Dec 03 09:04:29 2012 +0200
+++ b/.emacs-my Tue Dec 04 13:19:43 2012 +0200
@@ -222,6 +222,7 @@
(tool-bar-mode -1)
(setq-default line-spacing nil)
(defun my-popup-menu ()
+ "Menu from keyboard by emulating mouse event."
(interactive)
(mouse-popup-menubar
(list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))
@@ -2094,12 +2095,13 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "imenu")
+(require 'imenu)
+
(defun my-imenu-to-menubar ()
+ "Force imenu building when (menu-bar-mode -1)."
(when imenu-generic-expression
(imenu-add-menubar-index)
(run-hooks 'menu-bar-update-hook) ))
-
-(require 'imenu)
(mapc (lambda (hook) (add-hook hook 'my-imenu-to-menubar))
my-devel-mode-hook-list)