.emacs-my
changeset 652 243f52487da7
parent 650 d21c5ae9b7e6
child 653 76d35d1516dc
child 655 9639cfe1e0b2
--- a/.emacs-my	Sun Jun 19 23:11:10 2011 +0300
+++ b/.emacs-my	Sun Jun 19 23:16:11 2011 +0300
@@ -1320,17 +1320,15 @@
 ;;; ----------------------------------------------------------------
 (message "imenu")
 
-(when window-system
-  (require 'imenu)
-  (mapc (lambda (hook)
-          (add-hook hook
-                    (lambda ()
-                      (imenu-add-menubar-index)
-                      (run-hooks 'menu-bar-update-hook)
-                      ) ))
-        my-devel-mode-hook-list)
+(defun my-imenu-to-menubar ()
+  (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)
+
 ;;; ----------------------------------------------------------------
 (message "windows inf files for driver installin")