commit - d3cc027d5f8b3beb6de0e9dec29facae3c3b7e09
commit + b18a7d7e1aa442063068e5f4f8f6a17c2eabd0ef
blob - 212e2724c602218fc07ee2de218af959825c2705
blob + 391ded93d2fe257e336493aebeaf9c2cf508a16a
--- a68-mode.el
+++ a68-mode.el
"Highlighting expressions for Algol 68 mode.")
(defvar a68--keywords-regexp
- (regexp-opt '("+" "*" ";" ">" "<" ":=" "=" ",")))
+ (regexp-opt '("+" "*" ";" ">" "<" ":=" "=" "," ":")))
(defvar a68--smie-grammar
(smie-prec2->grammar
("CASE" exprs "IN" exprs "OUT" exprs "ESAC"))
(exprs (exprs "," exprs)
(exprs ";" exprs)
+ (exprs ":" exprs)
(expr)))
- '((assoc ";" ","))
+ '((assoc ";" "," ":"))
'((assoc "=" "/=" ":=" ":=:" ":/=:"
"+" "-" "*" "/")))))
(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)