'mouse-menu-bar-map' appear only in Emacs 23.x. To get work on any Emacs used
old 'mouse-popup-menubar'.
--- a/.emacs-my Tue Sep 28 23:44:56 2010 +0300
+++ b/.emacs-my Wed Sep 29 23:35:21 2010 +0300
@@ -95,9 +95,10 @@
(when window-system
(defun my-popup-menu ()
(interactive)
- (popup-menu
- (mouse-menu-bar-map) ;; (mouse-menu-major-mode-map)
- (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))))
+ (mouse-popup-menubar
+ (list (list (/ (display-pixel-width) 2) 10) (get-buffer-window (buffer-name)))
+ nil)
+ )
(global-set-key [f10] 'my-popup-menu)
(global-set-key [apps] 'my-popup-menu)
(when (>= emacs-major-version 22) (tooltip-mode -1))