From c14ac7b6136b79efb6269ac0116a615f391164fd Mon Sep 17 00:00:00 2001 From: Jethro Kuan Date: Mon, 16 Mar 2020 17:42:57 +0800 Subject: [PATCH] (bugfix): fix Helm completing-read containing extra spaces on non-match (#309) --- org-roam.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/org-roam.el b/org-roam.el index f74a4e8..cc79b08 100644 --- a/org-roam.el +++ b/org-roam.el @@ -613,10 +613,10 @@ specified via the #+ROAM_ALIAS property." (defun org-roam---helm-candidate-transformer (candidates _source) "Transforms CANDIDATES for Helm-based completing read. SOURCE is not used." - (let ((prefixed-pattern (propertize - " " 'display - (propertize "[?]" 'face 'helm-ff-prefix)))) - (cons (concat prefixed-pattern " " helm-pattern) + (let ((prefix (propertize "[?] " + 'face 'helm-ff-prefix))) + (cons (propertize helm-pattern + 'display (concat prefix helm-pattern)) candidates))) (cl-defun org-roam--completing-read (prompt choices &key