[elpa] externals/cape ab91f727fb 126/146: cape-tex/sgml: Filter candidates during compilation

[ELPA Syncer]

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

    cape-tex/sgml: Filter candidates during compilation
---
 cape.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cape.el b/cape.el
index f2c689f4b3..de32437e93 100644
--- a/cape.el
+++ b/cape.el
@@ -609,6 +609,7 @@ PREFIX is the prefix regular expression."
                         "\\`\\(\n\\|.\\)*?KEY SEQUENCE\n-+\n" ""
                         (buffer-string))))
                      "\n"))
+                   (regexp (concat "\\`" prefix))
                    (list nil))
                (dolist (line lines)
                  (let ((beg 0) (len (length line)))
@@ -618,7 +619,7 @@ PREFIX is the prefix regular expression."
                        (when (and (get-text-property beg 'face line) (< ename 
len) (<= echar len))
                          (let ((name (string-trim (substring-no-properties 
line beg ename)))
                                (char (string-trim (substring-no-properties 
line ename echar))))
-                           (when (= (length char) 1)
+                           (when (and (string-match-p regexp name) (= (length 
char) 1))
                              (push (cons name (aref char 0)) list))))
                        (setq beg echar)))))
                (kill-buffer)