# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1280095495 -10800
# Node ID 998f33a8ec6e5b3c7f5843900cbc2acaaa48fd12
# Parent  6e8b3a3122622350c0a62e274c18fa889f1b65e6
Open menu by f10 like by C-Mouse-3 without mouse!

diff -r 6e8b3a312262 -r 998f33a8ec6e .emacs-my
--- a/.emacs-my	Mon Jul 26 00:59:46 2010 +0300
+++ b/.emacs-my	Mon Jul 26 01:04:55 2010 +0300
@@ -92,6 +92,12 @@
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (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)))))
+  (global-set-key [f10] 'my-popup-menu)
   (when (>= emacs-major-version 22) (tooltip-mode -1))
   (scroll-bar-mode 1)
   )