branch: externals/a68-mode
commit b18a7d7e1aa442063068e5f4f8f6a17c2eabd0ef
Author: Omar Polo <o...@omarpolo.com>
Commit: Omar Polo <o...@omarpolo.com>
fix the indentation for the conformity clause
pretty name for the CASE on a UNION value
---
a68-mode.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 212e2724c6..391ded93d2 100644
--- a/a68-mode.el
+++ b/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)
