aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-07-02 21:37:09 +0000
committerRichard M. Stallman1993-07-02 21:37:09 +0000
commitb289b04e20f3c27a8bee7d0206df1dcab0c4bf2b (patch)
treeaa737d8a0e3f2dd321ec3d64735575e3add6d153
parent285eb5ef12a605574e93f6936ea7f96700054b57 (diff)
downloademacs-b289b04e20f3c27a8bee7d0206df1dcab0c4bf2b.tar.gz
emacs-b289b04e20f3c27a8bee7d0206df1dcab0c4bf2b.zip
(menu-bar-edit-menu): Rename menu item to
Choose Next Paste. Create this item along with all the others.
-rw-r--r--lisp/menu-bar.el6
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