[elpa] externals/consult 21663b6 1/2: Fix consult-completing-read-multiple history

[ELPA Syncer]

branch: externals/consult
commit 21663b651c61cf8ecb704e6e94289823e0fe828d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Fix consult-completing-read-multiple history
    
    See https://github.com/bdarcus/citar/issues/478
---
 consult.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/consult.el b/consult.el
index 5c534c2..969635d 100644
--- a/consult.el
+++ b/consult.el
@@ -2519,12 +2519,13 @@ See `completing-read-multiple' for the documentation of 
the arguments."
                 (setq selected (split-string (substring-no-properties result) 
separator 'omit-nulls)
                       consult--crm-history (append selected hist-val)))))
         (remove-hook 'pre-command-hook hook)))
-    (set hist-sym consult--crm-history)
     (when (consp def)
       (setq def (car def)))
     (if (and def (not (equal "" def)) (not selected))
         (split-string def separator 'omit-nulls)
-      (mapcar #'substring-no-properties selected))))
+      (setq selected (mapcar #'substring-no-properties selected))
+      (set hist-sym (append selected (symbol-value hist-sym)))
+      selected)))
 
 ;;;; Commands