procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-05-23 04:50:18 +00:00
parent 9ba60df97f
commit c15d229a41
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/lmenu.el
View file

@ -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))