diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-03-24 20:46:49 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-03-24 20:46:49 +0000 |
commit | c2d3da7de89c89f597da9e7e8af45c06f5df5495 (patch) | |
tree | 883dc86e4687a0e10dc9e8b47463b04e4244b184 /lisp/menu-bar.el | |
parent | 3fd44ff9f339a2d1eb1683a60842542f0e31aac5 (diff) | |
download | emacs-c2d3da7de89c89f597da9e7e8af45c06f5df5495.tar.gz |
(mouse-menu-bar-buffers): Fix position structure.
Diffstat (limited to 'lisp/menu-bar.el')
-rw-r--r-- | lisp/menu-bar.el | 4 |
1 files 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) |