--- a/.emacs-my	Mon Nov 26 23:32:33 2012 +0200
+++ b/.emacs-my	Sat Dec 01 13:14:57 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)