From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 23 May 1994 04:50:18 +0000 (+0000)
Subject: (popup-menu): Use mouse-pixel-position.
X-Git-Tag: emacs-19.34~8212
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c15d229a41e00427831dfebb9128d10ae6e65535;p=emacs.git

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

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index d249dcecdff..328cd318bfc 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -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))