branch: externals/a68-mode
commit eefa1bd041d3da23733e0776cbe9b74177fbd1de
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Highlight invalid string breaks.
---
a68-mode.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/a68-mode.el b/a68-mode.el
index 23c885831d..265fec0471 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -180,6 +180,7 @@
;; String breaks. Apostrophe is not (currently) a worthy character
;; out of strings, so for now we can just match it anywhere.
'("\\('[nrft']\\)\\|\\('(.*?)\\)" 0 ''a68-string-break-face prepend)
+ '("'[^nrft'(]" 0 ''font-lock-warning-face)
;; Two or more consecutive underscore characters are always
;; illegal in this stropping regime.
(cons "_[_]+" ''font-lock-warning-face)
@@ -364,6 +365,7 @@
;; String breaks. Apostrophe is not (currently) a worthy character
;; out of strings, so for now we can just match it anywhere.
'("\\('[nrft']\\)\\|\\('(.*?)\\)" 0 ''a68-string-break-face prepend)
+ '("'[^nrft'(]" 0 ''font-lock-warning-face prepend)
;; Two or more consecutive underscore characters are always
;; illegal in this stropping regime.
(cons "_[_]+" ''font-lock-warning-face)
