From 367727b0f6ed2468c909b9883740bff101d5a68f Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 29 Nov 2020 21:54:53 +0200 Subject: [PATCH] * lisp/simple.el (read-from-kill-ring): Call current-kill to prefill kill-ring --- lisp/simple.el | 2 ++ 1 file changed, 2 insertions(+) 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, -- 2.39.5