mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(tool-bar-help): Use `mouse-pixel-position'.

Browse source
This commit is contained in:
Miles Bader 2000-09-27 04:20:25 +00:00
parent 6a70ef0d81
commit c5785b73db
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/toolbar/tool-bar.el
View file

@ -155,7 +155,7 @@ PROPS is a list of additional properties to add to the binding."
(defun tool-bar-help ()
"Pop up the help menu from the tool-bar."
(interactive)
(let* ((p (mouse-position))
(let* ((p (mouse-pixel-position))
(menu menu-bar-help-menu)
(selection (x-popup-menu (list (list (cadr p) (cddr p)) (car p))
menu))