From ea0633d410bd39bf288c6519b42ae70f2fd30154 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 24 Mar 1994 20:46:49 +0000 Subject: [PATCH] (mouse-menu-bar-buffers): Fix position structure. --- lisp/menu-bar.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.5