branch: externals/a68-mode
commit 5d309f4f035ec68f5496ae5f26b19ae6c52c0d16
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>
Font-lock invalid sequences of underscore characters with a warning face
---
a68-mode.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/a68-mode.el b/a68-mode.el
index db9b762b99..9291369813 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -176,6 +176,9 @@
(or "TRUE" "FALSE")
word-end)
''font-lock-constant-face)
+ ;; Two or more consecutive underscore characters are always
+ ;; illegal in this stropping regime.
+ (cons "_[_]+" ''font-lock-warning-face)
'("\\<\\([A-Z]+[A-Z_]*\\>\\)\\(_+\\)?"
(1 'font-lock-type-face)
(2 'font-lock-warning-face nil t))
@@ -348,6 +351,9 @@
(or "true" "false")
word-end)
''font-lock-constant-face)
+ ;; Two or more consecutive underscore characters are always
+ ;; illegal in this stropping regime.
+ (cons "_[_]+" ''font-lock-warning-face)
;; Tags.
(cons "\\<[a-z]\\([a-z]_\\)*\\>" ''font-lock-variable-name-face)
;; By convention operators have only upper-letter names.
