branch: externals/a68-mode
commit fd5cd84bfc65df7bf937ff91eb586f079d3f1d5c
Author: Jose E. Marchesi <jose.march...@oracle.com>
Commit: Jose E. Marchesi <jose.march...@oracle.com>

    Foo_Bar is allowed in SUPPER stropping
---
 a68-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/a68-mode.el b/a68-mode.el
index de45717008..9b39c27d55 100644
--- a/a68-mode.el
+++ b/a68-mode.el
@@ -359,7 +359,7 @@
    ;; By convention operators have only upper-letter names.
    (cons "\\<\\([A-Z]+\\>\\)" ''font-lock-keyword-face)
    ;; Mode names use ThisCase.
-   (cons "\\<\\([A-Z][A-Za-z]*\\>\\)" ''font-lock-type-face))
+   (cons "\\<\\([A-Z][A-Za-z_]*\\>\\)" ''font-lock-type-face))
   "Highlighting expressions for Algol 68 mode in SUPPER stropping.")
 
 (defvar a68--smie-grammar-supper

Reply via email to