branch: externals/cape
commit ab91f727fbd680a77be82fbc18bb51dfd31b2f68
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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)
