* lisp/term/x-win.el (x-menu-bar-open): Always pass last-nonmenu-event.

* lisp/subr.el (eventp): `nil' is not an event, and eventp is not hot.
(event-start, event-end): Use posn-at-point to return a more
informative posn.
(posnp): New function.
* lisp/mouse.el (popup-menu-normalize-position): Use it.

1 files changed, 2 insertions, 5 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 3f58614eb64..9b7254cd132 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1306,17 +1306,14 @@ Request data types in the order specified by `x-select-request-type'."
 
 (defun x-menu-bar-open (&optional frame)
   "Open the menu bar if it is shown.
-`popup-menu' is used if it is off "
+`popup-menu' is used if it is off."
   (interactive "i")
   (cond
    ((and (not (zerop (or (frame-parameter nil 'menu-bar-lines) 0)))
          (fboundp 'accelerate-menu))
     (accelerate-menu frame))
    (t
-    (popup-menu (mouse-menu-bar-map)
-                (if (listp last-nonmenu-event)
-                    nil
-                  (posn-at-point))))))
+    (popup-menu (mouse-menu-bar-map) last-nonmenu-event))))
 
 
 ;;; Window system initialization.