diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-12 13:42:39 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-12 13:56:33 -0700 |
commit | 4562107390d3e20b8f9c3f13c79041232d598a3f (patch) | |
tree | 9d08daa2e0d71f9e828ff680aaeaaf0437e59bbd | |
parent | 667e196df85fb0ce8c8baa77ca56d370f100b06a (diff) | |
download | consfigurator-4562107390d3e20b8f9c3f13c79041232d598a3f.tar.gz |
consfigurator.el.in: fix scope of first capture group in qq regexp
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
-rw-r--r-- | emacs/consfigurator.el.in | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/emacs/consfigurator.el.in b/emacs/consfigurator.el.in index e9b816f..17094df 100644 --- a/emacs/consfigurator.el.in +++ b/emacs/consfigurator.el.in @@ -143,11 +143,11 @@ Modes that use this should add `syntax-propertize-multiline' to (consfigurator--finish-propertize-qq-heredoc end)))))) ;; Also recognise Let Over Lambda's #~ and a #!~ negated version. ;; We might want to add these to Consfigurator's readtable. - ((rx (group-n 1 - ?# (| (: ?? (group-n 2 (opt (| "rx" ?r ?x))) - (group-n 3 (not (in alnum ?\\)))) - (: (opt ?!) ?~ (group-n 2 (opt (| "tr" ?m ?s ?y))) - (group-n 3 nonl))))) + ((rx (| (: (group-n 1 "#?" (group-n 2 (opt (| "rx" ?r ?x)))) + (group-n 3 (not (in alnum ?\\)))) + (: (group-n 1 ?# (opt ?!) ?~ (group-n 2 + (opt (| "tr" ?m ?s ?y)))) + (group-n 3 nonl)))) (1 (and (not (in-string-or-comment-p)) (eval-when-compile (string-to-syntax "'")))) ;; Based on code in one branch of `perl-syntax-propertize-function'. |