equal
deleted
inserted
replaced
220 (mouse-avoidance-mode 'animate) |
220 (mouse-avoidance-mode 'animate) |
221 (scroll-bar-mode 1) |
221 (scroll-bar-mode 1) |
222 (tool-bar-mode -1) |
222 (tool-bar-mode -1) |
223 (setq-default line-spacing nil) |
223 (setq-default line-spacing nil) |
224 (defun my-popup-menu () |
224 (defun my-popup-menu () |
|
225 "Menu from keyboard by emulating mouse event." |
225 (interactive) |
226 (interactive) |
226 (mouse-popup-menubar |
227 (mouse-popup-menubar |
227 (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name))) |
228 (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name))) |
228 nil) |
229 nil) |
229 ) |
230 ) |
2092 ) |
2093 ) |
2093 |
2094 |
2094 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2095 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2095 (message "imenu") |
2096 (message "imenu") |
2096 |
2097 |
|
2098 (require 'imenu) |
|
2099 |
2097 (defun my-imenu-to-menubar () |
2100 (defun my-imenu-to-menubar () |
|
2101 "Force imenu building when (menu-bar-mode -1)." |
2098 (when imenu-generic-expression |
2102 (when imenu-generic-expression |
2099 (imenu-add-menubar-index) |
2103 (imenu-add-menubar-index) |
2100 (run-hooks 'menu-bar-update-hook) )) |
2104 (run-hooks 'menu-bar-update-hook) )) |
2101 |
|
2102 (require 'imenu) |
|
2103 (mapc (lambda (hook) (add-hook hook 'my-imenu-to-menubar)) |
2105 (mapc (lambda (hook) (add-hook hook 'my-imenu-to-menubar)) |
2104 my-devel-mode-hook-list) |
2106 my-devel-mode-hook-list) |
2105 |
2107 |
2106 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2108 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2107 (message "windows inf files for driver installin") |
2109 (message "windows inf files for driver installin") |