[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/mct 0fc7380 1/3: Make mct--completions-completion-end m

From: ELPA Syncer
Subject: [elpa] externals/mct 0fc7380 1/3: Make mct--completions-completion-end more robust
Date: Tue, 16 Nov 2021 14:57:20 -0500 (EST)

branch: externals/mct
commit 0fc738057541c003589c75e826ffcd39d9e84c7e
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make mct--completions-completion-end more robust
    Before it would fail to point at the end of the completion string if (i)
    the Completions' buffer was displaying some grouped format (e.g. the
    consult-imenu command) and (ii) the completions-format was set to either
    of the grid views.
 mct.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mct.el b/mct.el
index 7a3113e..0bbd7d9 100644
--- a/mct.el
+++ b/mct.el
@@ -943,9 +943,9 @@ region.")
   "Return end of completion candidate."
   (if-let ((string (get-text-property (point) 'completion--string)))
-        (next-completion 1)
-        (forward-char -1)
-        (point))
+        (if (eq completions-format 'one-column)
+            (1+ (prop-match-end (text-property-search-forward 
+          (prop-match-end (text-property-search-forward 'completion--string))))
 (defun mct--overlay-make ()

reply via email to

[Prev in Thread] Current Thread [Next in Thread]