From 4562107390d3e20b8f9c3f13c79041232d598a3f Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 12 Mar 2023 13:42:39 -0700 Subject: consfigurator.el.in: fix scope of first capture group in qq regexp Signed-off-by: Sean Whitton --- emacs/consfigurator.el.in | 10 +++++----- 1 file 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'. -- cgit v1.2.3