diff options
| -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'. |