--- a/.emacs-my	Mon Jul 26 00:57:40 2010 +0300
+++ b/.emacs-my	Mon Jul 26 00:59:46 2010 +0300
@@ -962,6 +962,20 @@
   )
 
 ;; ----------------------------------------------------------------------
+;; imenu.
+
+(require 'imenu)
+(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)
+  )
+
+;; ----------------------------------------------------------------------
 ;; windows inf files for driver installing
 
 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))