[elpa] externals/cape bc1c1ee9fc 140/146: Make cape-tex etc less aggressive, add cape-tex-prefix-required variable

[ELPA Syncer]

branch: externals/cape
commit bc1c1ee9fc015815b1c3a0e5a704002bd63cf8cc
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Make cape-tex etc less aggressive, add cape-tex-prefix-required variable
---
 cape.el | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/cape.el b/cape.el
index dad2bae588..8623e908e3 100644
--- a/cape.el
+++ b/cape.el
@@ -627,6 +627,7 @@ NAME is the name of the capf.
 METHOD is the input method.
 PREFIX is the prefix regular expression."
   (let ((capf (intern (format "cape-%s" name)))
+        (prefix-required (intern (format "cape-%s-prefix-required" name)))
         (list (intern (format "cape--%s-list" name)))
         (ann (intern (format "cape--%s-annotation" name)))
         (docsig (intern (format "cape--%s-docsig" name)))
@@ -634,6 +635,9 @@ PREFIX is the prefix regular expression."
         (properties (intern (format "cape--%s-properties" name))))
     `(progn
        (defvar ,list (cape--char-translation ,method ,prefix))
+       (defcustom ,prefix-required t
+         ,(format "Initial prefix is required for `%s' to trigger." capf)
+         :type 'boolean)
        (defun ,ann (name)
          (when-let (char (cdr (assoc name ,list)))
            (format " %c" char)))
@@ -663,12 +667,14 @@ is nil the function acts like a capf." method method)
          (interactive (list t))
          (if interactive
              ;; NOTE: Disable cycling since replacement breaks it.
-             (let (completion-cycle-threshold)
+             (let (completion-cycle-threshold ,prefix-required)
                (cape--interactive #',capf))
            (require 'thingatpt)
-           (let ((bounds (if (thing-at-point-looking-at ,(format "%s[^ \n\t]*" 
prefix))
-                             (cons (match-beginning 0) (match-end 0))
-                           (cons (point) (point)))))
+           (when-let (bounds
+                      (cond
+                       ((thing-at-point-looking-at ,(format "%s[^ \n\t]*" 
prefix))
+                        (cons (match-beginning 0) (match-end 0)))
+                       ((not ,prefix-required) (cons (point) (point)))))
              (append
               (list (car bounds) (cdr bounds)
                     (cape--table-with-properties ,list :category ',capf)