From: Juri Linkov <juri@linkov.net>
Date: Sun, 29 Nov 2020 19:54:53 +0000 (+0200)
Subject: * lisp/simple.el (read-from-kill-ring): Call current-kill to prefill kill-ring
X-Git-Tag: emacs-28.0.90~4993
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=367727b0f6ed2468c909b9883740bff101d5a68f;p=emacs.git

* lisp/simple.el (read-from-kill-ring): Call current-kill to prefill kill-ring
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 93fda7de8a1..7d0c229cad0 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5459,6 +5459,8 @@ With ARG, rotate that many kills forward (or backward, if negative)."
 (defvar read-from-kill-ring-history)
 (defun read-from-kill-ring ()
   "Read a string from `kill-ring' using completion and minibuffer history."
+  ;; `current-kill' updates `kill-ring' with a possible interprogram-paste
+  (current-kill 0)
   (let* ((history-add-new-input nil)
          (ellipsis (if (char-displayable-p ?…) "…" "..."))
          ;; Remove keymaps from text properties of copied string,