diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-16 12:00:35 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-16 19:05:06 -0700 |
commit | 23497607bf7ec831dd57bf06bf6cd802c3ec6b8a (patch) | |
tree | cb92d5897434af338d9bd1cceb255ff1bb9fca69 /emacs/consfigurator.el.in | |
parent | 8fa41a15f184660ab5bda5f86d645ba9b2582389 (diff) | |
download | consfigurator-23497607bf7ec831dd57bf06bf6cd802c3ec6b8a.tar.gz |
new reader macros for shell- and Perl-style matching & replacement
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'emacs/consfigurator.el.in')
-rw-r--r-- | emacs/consfigurator.el.in | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/emacs/consfigurator.el.in b/emacs/consfigurator.el.in index d9693f9..ed08766 100644 --- a/emacs/consfigurator.el.in +++ b/emacs/consfigurator.el.in @@ -152,12 +152,11 @@ Modes that use this should add `syntax-propertize-multiline' to (car (string-to-syntax "!"))) ender)) (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 ?\\)))) - (: (group-n 1 ?# (opt ?!) ?~ (group-n 2 - (opt (| "tr" ?m ?s ?y)))) + (: (group-n 1 + ?# (0+ digit) (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 "'")))) |