diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-12 10:49:40 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-12 10:49:40 -0700 |
commit | 296dabaaa1455fc85879acafd1968beec66613a8 (patch) | |
tree | 4975f959a03e41620bc7416bd6b84d2a47e71165 | |
parent | 969b59e1bbcc0b9a79bd2ef06cdd90fdde51c915 (diff) | |
download | consfigurator-296dabaaa1455fc85879acafd1968beec66613a8.tar.gz |
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 <spwhitton@spwhitton.name>
-rw-r--r-- | emacs/consfigurator.el.in | 7 |
1 files 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'. |