procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2020-11-29 21:54:53 +02:00
parent 6355fa5183
commit 367727b0f6
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/simple.el
View file

@ -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,