fix highlights for completing-read #1467

This commit is contained in:
Jethro Kuan
2021-04-15 03:13:35 +08:00
parent 517f18afb4
commit f52c3a47d4

View File

@ -610,10 +610,11 @@ is the `org-roam-node'."
:title title
:point pos
:tags (gethash id tags-table)))
(candidate-main (org-roam-node--format-entry node (1- (frame-width))))
(tag-str (org-roam--tags-to-str (org-roam-node-tags node))))
(cons (propertize (concat tag-str " " alias)
'node node
'display (org-roam-node--format-entry node (1- (frame-width))))
(cons (concat (propertize tag-str 'invisible t)
candidate-main
(propertize alias 'invisible t))
node)))))
(defun org-roam-node-read (&optional initial-input filter-fn require-match)