branch: externals/consult
commit 1984605a4aa6707bd8b096440a1eda70212f616b
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Minor code cleanup
---
consult.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/consult.el b/consult.el
index 969635d..bb8a313 100644
--- a/consult.el
+++ b/consult.el
@@ -2516,8 +2516,8 @@ See `completing-read-multiple' for the documentation of
the arguments."
"" ;; default
inherit-input-method)))
(unless (or (equal result "") selected)
- (setq selected (split-string (substring-no-properties result)
separator 'omit-nulls)
- consult--crm-history (append selected hist-val)))))
+ (setq selected (split-string result separator 'omit-nulls)
+ consult--crm-history (append (mapcar
#'substring-no-properties selected) hist-val)))))
(remove-hook 'pre-command-hook hook)))
(when (consp def)
(setq def (car def)))
