diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-12 13:50:31 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-03-12 14:02:35 -0700 |
commit | 255aadda192c99abdaecb0caebf59a9b5272fcac (patch) | |
tree | 50cd0bcf460bf7d50f2cf2cd1898f6ed8815964e /emacs/consfigurator.el.in | |
parent | a72ecfcf529624df02890b73368ea3e2826d1d0d (diff) | |
download | consfigurator-255aadda192c99abdaecb0caebf59a9b5272fcac.tar.gz |
new reader macro #>>EOF>>
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'emacs/consfigurator.el.in')
-rw-r--r-- | emacs/consfigurator.el.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/emacs/consfigurator.el.in b/emacs/consfigurator.el.in index d029b90..0555b28 100644 --- a/emacs/consfigurator.el.in +++ b/emacs/consfigurator.el.in @@ -131,11 +131,11 @@ Modes that use this should add `syntax-propertize-multiline' to (let (case-fold-search) (funcall (syntax-propertize-rules - ("#>\\([^>]+\\)>\\([^z-a]\\)" - (2 (ignore + ("#\\(>>?\\)\\(.+?\\)\\1\\([^z-a]\\)" + (3 (ignore (or (in-string-or-comment-p) - (let ((beg (match-beginning 2)) - (ender (match-string 1))) + (let ((beg (match-beginning 3)) + (ender (match-string 2))) (put-text-property beg (1+ beg) 'syntax-table (cons (eval-when-compile (car (string-to-syntax "!"))) |