branch: externals/consult
commit 21663b651c61cf8ecb704e6e94289823e0fe828d
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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
