Mercurial > emacs
changeset 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 | ed690a728e13 |
| children | 239620e1795d |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
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))))))