.emacs-my
changeset 652 243f52487da7
parent 650 d21c5ae9b7e6
child 653 76d35d1516dc
child 655 9639cfe1e0b2
equal deleted inserted replaced
651:e71e91de1915 652:243f52487da7
  1318   )
  1318   )
  1319 
  1319 
  1320 ;;; ----------------------------------------------------------------
  1320 ;;; ----------------------------------------------------------------
  1321 (message "imenu")
  1321 (message "imenu")
  1322 
  1322 
  1323 (when window-system
  1323 (defun my-imenu-to-menubar ()
  1324   (require 'imenu)
  1324   (imenu-add-menubar-index)
  1325   (mapc (lambda (hook)
  1325   (run-hooks 'menu-bar-update-hook)
  1326           (add-hook hook
  1326   )
  1327                     (lambda ()
  1327 
  1328                       (imenu-add-menubar-index)
  1328 (require 'imenu)
  1329                       (run-hooks 'menu-bar-update-hook)
  1329 (mapc (lambda (hook) (add-hook hook 'my-imenu-to-menubar))
  1330                       ) ))
  1330       my-devel-mode-hook-list)
  1331         my-devel-mode-hook-list)
       
  1332   )
       
  1333 
  1331 
  1334 ;;; ----------------------------------------------------------------
  1332 ;;; ----------------------------------------------------------------
  1335 (message "windows inf files for driver installin")
  1333 (message "windows inf files for driver installin")
  1336 
  1334 
  1337 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))
  1335 (add-to-list 'auto-mode-alist '("\\.inf\\'" . conf-mode))