branch: externals/consult
commit 6df330a2856a5d4fc19c865d8839ce64f179bd89
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Fix regression in consult--read-from-kill-ring (Fix #556)
Introduced in 8bccc73073247cd395a84165515a68468790a6dd.
---
consult.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index d9057bfa31..15f6db8c3a 100644
--- a/consult.el
+++ b/consult.el
@@ -3598,7 +3598,6 @@ If no MODES are specified, use currently active major and
minor modes."
;; to obtain the original candidate which may be propertized with
;; yank-specific properties, like 'yank-handler.
(consult--lookup-member
- nil kill-ring
(consult--read
(consult--remove-dups
(or kill-ring (user-error "Kill ring is empty")))
@@ -3611,7 +3610,8 @@ If no MODES are specified, use currently active major and
minor modes."
(consult--insertion-preview
(point)
;; If previous command is yank, hide previously yanked string
- (or (and (eq last-command 'yank) (mark t)) (point))))))
+ (or (and (eq last-command 'yank) (mark t)) (point))))
+ kill-ring))
;; Adapted from the Emacs `yank-from-kill-ring' function.
;;;###autoload
