Mercurial > emacs
changeset 3958:3112c8925d39
(menu-bar-edit-menu): Rename menu item to
Choose Next Paste. Create this item along with all the others.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 02 Jul 1993 21:37:09 +0000 |
| parents | 4d53420e2df4 |
| children | 103a29fa86b7 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 2 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/menu-bar.el Fri Jul 02 21:34:15 1993 +0000 +++ b/lisp/menu-bar.el Fri Jul 02 21:37:09 1993 +0000 @@ -47,6 +47,8 @@ (define-key menu-bar-edit-menu [fill] '("Fill" . fill-region)) (define-key menu-bar-edit-menu [clear] '("Clear" . delete-region)) +(define-key menu-bar-edit-menu [choose-selection] + '("Choose Next Paste" . mouse-menu-choose-yank)) (define-key menu-bar-edit-menu [paste] '("Paste" . yank)) (define-key menu-bar-edit-menu [copy] '("Copy" . kill-ring-save)) (define-key menu-bar-edit-menu [cut] '("Cut" . kill-region)) @@ -135,10 +137,6 @@ (message "The next yank will insert the selected text.") (current-kill 0)))))) (put 'mouse-menu-choose-yank 'menu-enable 'kill-ring) - -(define-key-after menu-bar-edit-menu [choose-selection] - '("Choose Pasting Selection" . mouse-menu-choose-yank) - 'paste) (define-key global-map [menu-bar buffer] '("Buffers" . mouse-menu-bar-buffers))