From 75340584376903ce3b0525c7585fa9052184e6c4 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 7 Jul 1993 19:58:54 +0000 Subject: [PATCH] (mouse-menu-choose-yank): Change menu title to "Choose Next Yank". --- lisp/menu-bar.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.39.5