[elpa] externals/mct 020bb45 2/3: Tweak mct--completions-completion-beg for symmetry

[ELPA Syncer]

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

    Tweak mct--completions-completion-beg for symmetry
    
    See commit 0fc7380.
---
 mct.el | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/mct.el b/mct.el
index 0bbd7d9..1242edb 100644
--- a/mct.el
+++ b/mct.el
@@ -927,17 +927,12 @@ This value means that it takes precedence over lines that 
have
 the `mct-stripe' face, while it is overriden by the active
 region.")
 
-;; TODO 2021-11-16: Maybe there is a better way to get the boundaries of
-;; the completion at point?  What we do here saves us from highlighting
-;; empty space.
 (defun mct--completions-completion-beg ()
   "Return point of completion candidate at START and END."
   (if-let ((string (get-text-property (point) 'completion--string)))
       (save-excursion
-        (next-completion -1)
-        (next-completion 1)
-        (point))
-    (point)))
+        (prop-match-beginning (text-property-search-forward 
'completion--string))))
+  (point))
 
 (defun mct--completions-completion-end ()
   "Return end of completion candidate."