[A68-MODE][COMMITTED] Handle underscore characters in mode indicators in a68-font-lock-keywords

[Jose E. Marchesi]

---
 a68-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/a68-mode.el b/a68-mode.el
index 9f12e95..d936bf1 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -111,7 +111,7 @@
              word-end)
          'font-lock-constant-face)
    ;; only valid for bold stropping
-   (cons (concat "\\<[A-Z]+\\>") 'font-lock-type-face)
+   (cons (concat "\\<[A-Z]+[A-Z_]*\\>") 'font-lock-type-face)
    (cons "\\('\\w*'\\)"
          'font-lock-variable-name-face))
   "Highlighting expressions for Algol 68 mode.")
-- 
2.30.2