Mercurial > emacs
diff lisp/menu-bar.el @ 5473:e080a27c1dd6
(mouse-menu-choose-yank): Don't use rotate-yank-pointer; set
kill-ring-yank-pointer explicitly instead.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Thu, 06 Jan 1994 16:49:05 +0000 |
parents | 1136488153c0 |
children | bf68550ececf |
line wrap: on
line diff
--- 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))))))