diff options
| -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) |