awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-09-08 15:23:30 -05:00
Code Issues Packages Projects Releases Wiki Activity

(bugfix): fix Helm completing-read containing extra spaces on non-match (#309)

Browse Source
This commit is contained in:
Jethro Kuan
2020-03-16 17:42:57 +08:00
committed by GitHub
parent 08667d9c7d
commit c14ac7b613
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
org-roam.el
View File

@@ -613,10 +613,10 @@ specified via the #+ROAM_ALIAS property."
(defun org-roam---helm-candidate-transformer (candidates _source) (defun org-roam---helm-candidate-transformer (candidates _source)
"Transforms CANDIDATES for Helm-based completing read. "Transforms CANDIDATES for Helm-based completing read.
SOURCE is not used." SOURCE is not used."
(let ((prefixed-pattern (propertize (let ((prefix (propertize "[?] "
" " 'display 'face 'helm-ff-prefix)))
(propertize "[?]" 'face 'helm-ff-prefix)))) (cons (propertize helm-pattern
(cons (concat prefixed-pattern " " helm-pattern) 'display (concat prefix helm-pattern))
candidates))) candidates)))
(cl-defun org-roam--completing-read (prompt choices &key (cl-defun org-roam--completing-read (prompt choices &key