# HG changeset patch # User Roland McGrath # Date 742075134 0 # Node ID 92cd14c9ea804081cd4f38c6de2579f61a4118a6 # Parent b9f3b023e5c9f6e4a9835502883878b4a8a3940e (mouse-menu-choose-yank): Change menu title to "Choose Next Yank". diff -r b9f3b023e5c9 -r 92cd14c9ea80 lisp/menu-bar.el --- 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