mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

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