branch: externals/a68-mode
commit 1adad65e621119a7e03687ebf35a0bb202c3a59c
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
Highlight "op" as a keyword unless in a declarer
---
a68-mode.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/a68-mode.el b/a68-mode.el
index c8dd3db1ab..02a28efe96 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -289,6 +289,9 @@
;; keyword, not as a mode declarer constituent.
'("\\(\\<PROC\\>\\)[ \t]*\\<\\([a-z][a-z]+_?\\)+\\>[ \t]*="
1 ''a68-keyword-face)
+ ;; Ditto for an OP followed by an indicant and then a =.
+ '("\\(\\<OP\\>\\)[ \t]*\\<\\([A-Z][A-Z0-9_]*\\)\\>[ \t]*="
+ 1 ''a68-keyword-face)
(cons (rx word-start
(eval `(or ,@a68-std-modes-upper))
word-end)
@@ -321,6 +324,9 @@
;; keyword, not as a mode declarer constituent.
'("\\(\\<proc\\>\\)[ \t]*\\<\\([a-z][a-z]+_?\\)+\\>[ \t]*="
1 ''a68-keyword-face)
+ ;; Ditto for an op followed by an indicant and then a =.
+ '("\\(\\<op\\>\\)[ \t]*\\<\\([A-Z][A-Za-z0-9_]*\\)\\>[ \t]*="
+ 1 ''a68-keyword-face)
(cons (rx word-start
(eval `(or ,@a68-std-modes-supper))
word-end)
