Commit c15d229a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(popup-menu): Use mouse-pixel-position.

parent 9ba60df9
......@@ -134,7 +134,7 @@ The syntax, more precisely:
menu := '(' name [ menu-item | menu | text ]+ ')'
"
(let ((menu (make-lucid-menu-keymap (car menu-desc) (cdr menu-desc)))
(pos (mouse-position))
(pos (mouse-pixel-position))
answer)
(while menu
(setq answer (x-popup-menu (list (list (nth 1 pos) (nthcdr 2 pos))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment