Mercurial > emacs
comparison lisp/toolbar/tool-bar.el @ 31921:742016ea45ce
(tool-bar-help): Use `mouse-pixel-position'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 27 Sep 2000 04:17:14 +0000 |
| parents | 6d04db7a9256 |
| children | 5554c8f22e37 |
comparison
equal
deleted
inserted
replaced
| 31920:75b162c6dc9e | 31921:742016ea45ce |
|---|---|
| 153 :help "Edit preferences (customize)") | 153 :help "Edit preferences (customize)") |
| 154 | 154 |
| 155 (defun tool-bar-help () | 155 (defun tool-bar-help () |
| 156 "Pop up the help menu from the tool-bar." | 156 "Pop up the help menu from the tool-bar." |
| 157 (interactive) | 157 (interactive) |
| 158 (let* ((p (mouse-position)) | 158 (let* ((p (mouse-pixel-position)) |
| 159 (menu menu-bar-help-menu) | 159 (menu menu-bar-help-menu) |
| 160 (selection (x-popup-menu (list (list (cadr p) (cddr p)) (car p)) | 160 (selection (x-popup-menu (list (list (cadr p) (cddr p)) (car p)) |
| 161 menu)) | 161 menu)) |
| 162 binding) | 162 binding) |
| 163 (while selection | 163 (while selection |