# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764542009 0
# Node ID d4d36d1aa774be0516a4eebc47877a6bfd3e66d1
# Parent  c79a6bf75daa0c6f30974749e8632aac43187fbb
(mouse-menu-bar-buffers): Fix position structure.

diff -r c79a6bf75daa -r d4d36d1aa774 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Thu Mar 24 20:38:34 1994 +0000
+++ b/lisp/menu-bar.el	Thu Mar 24 20:46:49 1994 +0000
@@ -267,7 +267,7 @@
     (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 @@
 	     (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)