# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1285792521 -10800
# Node ID d6c84d84af9b20f43b759b48e56f7dfa37f8549a
# Parent  d81fba2140f4f39f0b4605abbba2c92a22436e43
'mouse-menu-bar-map' appear only in Emacs 23.x. To get work on any Emacs used
old 'mouse-popup-menubar'.

diff -r d81fba2140f4 -r d6c84d84af9b .emacs-my
--- 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))