# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 757874945 0
# Node ID e080a27c1dd6b28c9c774ab08bd5975ef01328a8
# Parent  ed690a728e1352781534fefb368f25d4333b2c12
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
kill-ring-yank-pointer explicitly instead.

diff -r ed690a728e13 -r e080a27c1dd6 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Thu Jan 06 15:25:19 1994 +0000
+++ b/lisp/menu-bar.el	Thu Jan 06 16:49:05 1994 +0000
@@ -3,7 +3,7 @@
 ;; Author: RMS
 ;; Keywords: internal
 
-;; Copyright (C) 1993 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
@@ -166,7 +166,12 @@
     ;; XXX should this perhaps do something other than simply return? -rm
     (if arg
 	(progn
-	  (rotate-yank-pointer arg)
+	  ;; We don't use `rotate-yank-pointer' because we want to move
+	  ;; relative to the beginning of kill-ring, not the current
+	  ;; position.  Also, that would ask for any new X selection and
+	  ;; thus change the list of items the user just chose from, which
+	  ;; would be highly confusing.
+	  (setq kill-ring-yank-pointer (nthcdr arg kill-ring))
 	  (if (interactive-p)
 	      (message "The next yank will insert the selected text.")
 	    (current-kill 0))))))