emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/mct 15b7ab0 1/4: Clarify scope of two internal function


From: ELPA Syncer
Subject: [elpa] externals/mct 15b7ab0 1/4: Clarify scope of two internal functions
Date: Tue, 16 Nov 2021 04:57:23 -0500 (EST)

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

    Clarify scope of two internal functions
---
 mct.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/mct.el b/mct.el
index f698a51..dbb4198 100644
--- a/mct.el
+++ b/mct.el
@@ -182,15 +182,15 @@ NOTE that setting this option with `setq' requires a 
restart of
 
 ;;;; Completion metadata
 
-(defun mct--field-beg ()
-  "Determine beginning of completion."
+(defun mct--minibuffer-field-beg ()
+  "Determine beginning of completion in the minibuffer."
   (if-let ((window (active-minibuffer-window)))
       (with-current-buffer (window-buffer window)
         (minibuffer-prompt-end))
     (nth 0 completion-in-region--data)))
 
-(defun mct--field-end ()
-  "Determine end of completion."
+(defun mct--minibuffer-field-end ()
+  "Determine end of completion in the minibuffer."
   (if-let ((window (active-minibuffer-window)))
       (with-current-buffer (window-buffer window)
         (point-max))
@@ -200,7 +200,7 @@ NOTE that setting this option with `setq' requires a 
restart of
   "Return completion category."
   (when-let ((window (active-minibuffer-window)))
     (with-current-buffer (window-buffer window)
-      (let* ((beg (mct--field-beg))
+      (let* ((beg (mct--minibuffer-field-beg))
              (md (completion--field-metadata beg)))
         (alist-get 'category (cdr md))))))
 
@@ -892,7 +892,7 @@ ARGS."
            (eq (mct--completion-category) 'file)
            rfn-eshadow-overlay (overlay-buffer rfn-eshadow-overlay)
            (eq this-command 'self-insert-command)
-           (= saved-point (mct--field-end))
+           (= saved-point (mct--minibuffer-field-end))
            (or (>= (- (point) (overlay-end rfn-eshadow-overlay)) 2)
                (eq ?/ (char-before (- (point) 2)))))
       (delete-region (overlay-start rfn-eshadow-overlay)



reply via email to

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