[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 367727b: * lisp/simple.el (read-from-kill-ring): Call current-kil
From: |
Juri Linkov |
Subject: |
master 367727b: * lisp/simple.el (read-from-kill-ring): Call current-kill to prefill kill-ring |
Date: |
Sun, 29 Nov 2020 14:55:05 -0500 (EST) |
branch: master
commit 367727b0f6ed2468c909b9883740bff101d5a68f
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* 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 93fda7d..7d0c229 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,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 367727b: * lisp/simple.el (read-from-kill-ring): Call current-kill to prefill kill-ring,
Juri Linkov <=