branch: externals/consult
commit f757c17cfc3850fb25d28c90ebf19db0976895fe
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Ensure that interprogram pastes are not ignored (Fix #443)
---
consult.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/consult.el b/consult.el
index e972e8d..198d7e3 100644
--- a/consult.el
+++ b/consult.el
@@ -3251,6 +3251,8 @@ If no MODES are specified, use currently active major and
minor modes."
(defun consult--read-from-kill-ring ()
"Open kill ring menu and return selected string."
+ ;; `current-kill' updates `kill-ring' with a possible interprogram-paste
(#443)
+ (current-kill 0)
;; Do not specify a :lookup function in order to preserve completion-styles
;; highlighting of the current candidate. We have to perform a final lookup
;; to obtain the original candidate which may be propertized with
