equal
deleted
inserted
replaced
93 (menu-bar-mode -1) |
93 (menu-bar-mode -1) |
94 (tool-bar-mode -1) |
94 (tool-bar-mode -1) |
95 (when window-system |
95 (when window-system |
96 (defun my-popup-menu () |
96 (defun my-popup-menu () |
97 (interactive) |
97 (interactive) |
98 (popup-menu |
98 (mouse-popup-menubar |
99 (mouse-menu-bar-map) ;; (mouse-menu-major-mode-map) |
99 (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name))) |
100 (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name))))) |
100 nil) |
|
101 ) |
101 (global-set-key [f10] 'my-popup-menu) |
102 (global-set-key [f10] 'my-popup-menu) |
102 (global-set-key [apps] 'my-popup-menu) |
103 (global-set-key [apps] 'my-popup-menu) |
103 (when (>= emacs-major-version 22) (tooltip-mode -1)) |
104 (when (>= emacs-major-version 22) (tooltip-mode -1)) |
104 (scroll-bar-mode 1) |
105 (scroll-bar-mode 1) |
105 ) |
106 ) |