diff options
| -rw-r--r-- | lisp/menu-bar.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index fa4352a9e57..6474d04817c 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -47,6 +47,8 @@ | |||
| 47 | 47 | ||
| 48 | (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) | 48 | (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) |
| 49 | (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) | 49 | (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) |
| 50 | (define-key menu-bar-edit-menu [choose-selection] | ||
| 51 | '("Choose Next Paste" . mouse-menu-choose-yank)) | ||
| 50 | (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) | 52 | (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) |
| 51 | (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) | 53 | (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) |
| 52 | (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) | 54 | (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) |
| @@ -135,10 +137,6 @@ A subsequent \\[yank] yanks the choice just selected." | |||
| 135 | (message "The next yank will insert the selected text.") | 137 | (message "The next yank will insert the selected text.") |
| 136 | (current-kill 0)))))) | 138 | (current-kill 0)))))) |
| 137 | (put 'mouse-menu-choose-yank 'menu-enable 'kill-ring) | 139 | (put 'mouse-menu-choose-yank 'menu-enable 'kill-ring) |
| 138 | |||
| 139 | (define-key-after menu-bar-edit-menu [choose-selection] | ||
| 140 | '("Choose Pasting Selection" . mouse-menu-choose-yank) | ||
| 141 | 'paste) | ||
| 142 | 140 | ||
| 143 | (define-key global-map [menu-bar buffer] '("Buffers" . mouse-menu-bar-buffers)) | 141 | (define-key global-map [menu-bar buffer] '("Buffers" . mouse-menu-bar-buffers)) |
| 144 | 142 | ||