From 03dcd202f4ae02d0088c02cc0c154ed38b3f681f Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Thu, 6 Jan 1994 16:49:05 +0000 Subject: [PATCH] (mouse-menu-choose-yank): Don't use rotate-yank-pointer; set kill-ring-yank-pointer explicitly instead. --- lisp/menu-bar.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 6b5d58b3712..27c309c7a46 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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 @@ A subsequent \\[yank] yanks the choice just selected." ;; 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)))))) -- 2.39.5