From: Roland McGrath <roland@gnu.org>
Date: Wed, 7 Jul 1993 19:58:54 +0000 (+0000)
Subject: (mouse-menu-choose-yank): Change menu title to "Choose Next Yank".
X-Git-Tag: emacs-19.34~11826
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75340584376903ce3b0525c7585fa9052184e6c4;p=emacs.git

(mouse-menu-choose-yank): Change menu title to "Choose Next Yank".
---

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 6474d04817c..5da62849bc2 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -47,7 +47,7 @@
 
 (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]
+(define-key menu-bar-edit-menu [choose-next-paste]
   '("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))
@@ -126,7 +126,7 @@ A subsequent \\[yank] yanks the choice just selected."
 		       kill-ring))
 	 (arg (x-popup-menu event 
 			    (list "Yank Menu"
-				  (cons "Pick Selection" menu)))))
+				  (cons "Choose Next Yank" menu)))))
     ;; A mouse click outside the menu returns nil.
     ;; Avoid a confusing error from passing nil to rotate-yank-pointer.
     ;; XXX should this perhaps do something other than simply return? -rm