mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 06:01:22 -08:00
Code Issues Projects Releases Wiki Activity

(popup-menu): If POSITION is nil, set it using

Browse source 
mouse-position.
This commit is contained in:
Dave Love 2000-09-26 15:34:39 +00:00
parent 876512abbb
commit b52a30d869
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mouse.el
View file

@ -59,12 +59,15 @@ PREFIX is the prefix argument (if any) to pass to the command."
(plist-get (get map 'menu-pro) :filter))))
(if filter (funcall filter (symbol-function map)) map)))))
event)
(unless position
(let ((mp (mouse-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 position (indirect-function map))))
(x-popup-menu (or position (mouse-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)))