Mercurial > emacs

changeset 31923:d257713e8d6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix last change.
author Dave Love <fx@gnu.org>
date Wed, 27 Sep 2000 08:59:33 +0000
parents 920742eb47db
children e218cb644b08
files lisp/mouse.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mouse.el	Wed Sep 27 04:20:25 2000 +0000
+++ b/lisp/mouse.el	Wed Sep 27 08:59:33 2000 +0000
@@ -60,14 +60,14 @@
 		  (if filter (funcall filter (symbol-function map)) map)))))
 	 event)
     (unless position
-      (let ((mp (mouse-position)))
+      (let ((mp (mouse-pixel-position)))
 	(setq position (list (list (cadr mp) (cddr mp)) (car mp)))))
     ;; The looping behavior was taken from lmenu's popup-menu-popup
     (while (and map (setq event
 			  ;; map could be a prefix key, in which case
 			  ;; we need to get its function cell
 			  ;; definition.
-			  (x-popup-menu (or position (mouse-position)) (indirect-function map))))
+			  (x-popup-menu position (indirect-function map))))
       ;; Strangely x-popup-menu returns a list.
       ;; mouse-major-mode-menu was using a weird:
       ;; (key-binding (apply 'vector (append '(menu-bar) menu-prefix events)))