mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-03 20:24:29 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2000-09-27 Miles Bader <miles@lsi.nec.co.jp>
* toolbar/tool-bar.el (tool-bar-help): Use `mouse-pixel-position'.
2000-09-22 Kenichi Handa <handa@etl.go.jp>
* international/quail.el (quail-help): The output message is

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