(mouse-menu-bar-buffers): Fix position structure.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index bf1ddcbc35b9aadbd0284ad6c88502bc739042b1..ea6221ca7102aab92f9102dade0f708f80c3c6bd 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -267,7 +267,7 @@ and selects that window."
     (setq menu (cons "Buffer and Frame Menu" menu))
 
     (let ((buf (x-popup-menu (if (listp event) event
-                              (cons '(0 0) (selected-frame)))
+                              (list '(0 0) (selected-frame)))
                             menu))
          (window (and (listp event) (posn-window (event-start event)))))
       (cond ((framep buf)
@@ -280,7 +280,7 @@ and selects that window."
             (if complex-buffers-menu-p
                 (let ((action (x-popup-menu
                                (if (listp event) event
-                                 (cons '(0 0) (selected-frame)))
+                                 (list '(0 0) (selected-frame)))
                                '("Buffer Action"
                                  (""
                                   ("Save Buffer" . save-buffer)