From 296dabaaa1455fc85879acafd1968beec66613a8 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 12 Mar 2023 10:49:40 -0700 Subject: consfigurator.el.in: limit delims in accordance w/ CL-INTERPOL docs This fixes Paredit backslash-escaping an opening '"' typed after typing '#r'. Signed-off-by: Sean Whitton --- emacs/consfigurator.el.in | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/emacs/consfigurator.el.in b/emacs/consfigurator.el.in index 63c8a36..5859ff0 100644 --- a/emacs/consfigurator.el.in +++ b/emacs/consfigurator.el.in @@ -144,9 +144,10 @@ Modes that use this should add `syntax-propertize-multiline' to ;; 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)))) - (: (opt ?!) ?~ (group-n 2 (opt (| "tr" ?m ?s ?y))))))) - (group-n 3 nonl)) + ?# (| (: ?? (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))))) (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