From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 24 Mar 1994 20:46:49 +0000 (+0000)
Subject: (mouse-menu-bar-buffers): Fix position structure.
X-Git-Tag: emacs-19.34~9339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea0633d410bd39bf288c6519b42ae70f2fd30154;p=emacs.git

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

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index bf1ddcbc35b..ea6221ca710 100644
--- 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)