[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/mct 790dc17: Simplify mct--completions-completion-end
From: |
ELPA Syncer |
Subject: |
[elpa] externals/mct 790dc17: Simplify mct--completions-completion-end |
Date: |
Tue, 16 Nov 2021 05:59:30 -0500 (EST) |
branch: externals/mct
commit 790dc175c4cf869104797317c3607f7a47098e1d
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Simplify mct--completions-completion-end
---
mct.el | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/mct.el b/mct.el
index 4bd2ab2..0d17c5f 100644
--- a/mct.el
+++ b/mct.el
@@ -927,12 +927,9 @@ region.")
(defun mct--completions-completion-end ()
"Return end of completion candidate."
- (if-let ((string (get-text-property (point) 'completion--string)))
- (save-excursion
- (next-completion 1)
- (forward-char -1)
- (point))
- (point)))
+ (save-excursion
+ (goto-char (mct--completions-completion-beg))
+ (re-search-forward "\s\\|$")))
(defun mct--overlay-make ()
"Make overlay to highlight current candidate."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/mct 790dc17: Simplify mct--completions-completion-end,
ELPA Syncer <=