Mercurial > emacs

diff lisp/menu-bar.el @ 4025:92cd14c9ea80

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-menu-choose-yank): Change menu title to "Choose Next Yank".
author Roland McGrath <roland@gnu.org>
date Wed, 07 Jul 1993 19:58:54 +0000
parents 3112c8925d39
children 26b434331fce
line wrap: on
line diff
--- a/lisp/menu-bar.el	Wed Jul 07 19:07:54 1993 +0000
+++ b/lisp/menu-bar.el	Wed Jul 07 19:58:54 1993 +0000
@@ -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 @@
 		       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