[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico c18678d 1/2: Fix vertico--candidate
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico c18678d 1/2: Fix vertico--candidate |
Date: |
Mon, 22 Nov 2021 20:57:35 -0500 (EST) |
branch: externals/vertico
commit c18678d46e98fd02cf07923dcbed15a2df15e2ed
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Fix vertico--candidate
---
vertico.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/vertico.el b/vertico.el
index cf95736..4fa6deb 100644
--- a/vertico.el
+++ b/vertico.el
@@ -603,7 +603,7 @@ The function is configured by BY, BSIZE, BINDEX, BPRED and
PRED."
"Exhibit completion UI."
(let* ((buffer-undo-list t) ;; Overlays affect point position and undo list!
(pt (max 0 (- (point) (minibuffer-prompt-end))))
- (content (minibuffer-contents-no-properties)))
+ (content (minibuffer-contents)))
(unless (or (input-pending-p) (equal vertico--input (cons content pt)))
(vertico--update-candidates pt content))
(vertico--prompt-selection)
@@ -731,7 +731,7 @@ When the prefix argument is 0, the group order is reset."
(defun vertico--candidate (&optional hl)
"Return current candidate string with optional highlighting if HL is
non-nil."
- (let ((content (minibuffer-contents)))
+ (let ((content (substring (or (car-safe vertico--input)
(minibuffer-contents)))))
(if (>= vertico--index 0)
(let ((cand (substring (nth vertico--index vertico--candidates))))
;;; XXX Drop the completions-common-part face which is added by
`completion--twq-all'.