[elpa] externals/consult 6df330a285: Fix regression in consult--read-from-kill-ring (Fix #556)

[ELPA Syncer]

branch: externals/consult
commit 6df330a2856a5d4fc19c865d8839ce64f179bd89
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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