commit b18a7d7e1aa442063068e5f4f8f6a17c2eabd0ef
from: Omar Polo <op@omarpolo.com>
date: Mon Nov 08 18:39:46 2021 UTC

fix the indentation for the conformity clause

pretty name for the CASE on a UNION value

commit - d3cc027d5f8b3beb6de0e9dec29facae3c3b7e09
commit + b18a7d7e1aa442063068e5f4f8f6a17c2eabd0ef
blob - 212e2724c602218fc07ee2de218af959825c2705
blob + 391ded93d2fe257e336493aebeaf9c2cf508a16a
--- a68-mode.el
+++ a68-mode.el
@@ -104,7 +104,7 @@
   "Highlighting expressions for Algol 68 mode.")
 
 (defvar a68--keywords-regexp
-  (regexp-opt '("+" "*" ";" ">" "<" ":=" "=" ",")))
+  (regexp-opt '("+" "*" ";" ">" "<" ":=" "=" "," ":")))
 
 (defvar a68--smie-grammar
   (smie-prec2->grammar
@@ -126,8 +126,9 @@
                             ("CASE" exprs "IN" exprs "OUT" exprs "ESAC"))
                       (exprs (exprs "," exprs)
                              (exprs ";" exprs)
+                             (exprs ":" exprs)
                              (expr)))
-                    '((assoc ";" ","))
+                    '((assoc ";" "," ":"))
                     '((assoc "=" "/=" ":=" ":=:" ":/=:"
                              "+" "-" "*" "/")))))
 
@@ -173,6 +174,7 @@
     (modify-syntax-entry ?# ">" st)
     (modify-syntax-entry ?\\ "." st)
     (modify-syntax-entry ?, "." st)
+    (modify-syntax-entry ?: "." st)
     ;; define parentheses to match
     (modify-syntax-entry ?\( "()" st)
     (modify-syntax-entry ?\) ")(" st)