diff options
| author | Karl Heuer | 1994-03-24 20:46:49 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-03-24 20:46:49 +0000 |
| commit | ea0633d410bd39bf288c6519b42ae70f2fd30154 (patch) | |
| tree | ed1ba4b7aeee5739882ef86f3a7e52858b53358a | |
| parent | 1fe3d50701adcd8929745edf24158a4a50459ea0 (diff) | |
| download | emacs-ea0633d410bd39bf288c6519b42ae70f2fd30154.tar.gz emacs-ea0633d410bd39bf288c6519b42ae70f2fd30154.zip | |
(mouse-menu-bar-buffers): Fix position structure.
| -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." | |||
| 267 | (setq menu (cons "Buffer and Frame Menu" menu)) | 267 | (setq menu (cons "Buffer and Frame Menu" menu)) |
| 268 | 268 | ||
| 269 | (let ((buf (x-popup-menu (if (listp event) event | 269 | (let ((buf (x-popup-menu (if (listp event) event |
| 270 | (cons '(0 0) (selected-frame))) | 270 | (list '(0 0) (selected-frame))) |
| 271 | menu)) | 271 | menu)) |
| 272 | (window (and (listp event) (posn-window (event-start event))))) | 272 | (window (and (listp event) (posn-window (event-start event))))) |
| 273 | (cond ((framep buf) | 273 | (cond ((framep buf) |
| @@ -280,7 +280,7 @@ and selects that window." | |||
| 280 | (if complex-buffers-menu-p | 280 | (if complex-buffers-menu-p |
| 281 | (let ((action (x-popup-menu | 281 | (let ((action (x-popup-menu |
| 282 | (if (listp event) event | 282 | (if (listp event) event |
| 283 | (cons '(0 0) (selected-frame))) | 283 | (list '(0 0) (selected-frame))) |
| 284 | '("Buffer Action" | 284 | '("Buffer Action" |
| 285 | ("" | 285 | ("" |
| 286 | ("Save Buffer" . save-buffer) | 286 | ("Save Buffer" . save-buffer) |