Commit fc08800b authored by Adrien Guatto's avatar Adrien Guatto

Improved Emacs mode

parent b00eab15
......@@ -65,7 +65,7 @@
;; (regexp-opt '(
;; "with" "merge" "when" "whenot"
;; "fby" "pre" "on" "end" "automaton" "state"
;; "fby" "pre" "on" "onot" "not" "end" "automaton" "state"
;; "switch" "every" "reset" "until" "unless"
;; "last" "if" "then" "else" "default" "do" "done" "in" "continue"
;; "contract" "assume" "enforce" "with"
......@@ -83,7 +83,7 @@
.
font-lock-builtin-face)
'(
"\\<\\(a\\(?:ssume\\|utomaton\\)\\|cont\\(?:inue\\|ract\\)\\|d\\(?:efault\\|o\\(?:ne\\)?\\)\\|e\\(?:lse\\|n\\(?:d\\|force\\)\\|very\\)\\|f\\(?:by\\|oldi?\\)\\|i[fn]\\|last\\|m\\(?:ap\\(?:foldi?\\|i\\)?\\|erge\\)\\|on\\|pre\\|reset\\|s\\(?:tate\\|witch\\)\\|then\\|un\\(?:less\\|til\\)\\|w\\(?:hen\\(?:ot\\)?\\|ith\\)\\)\\>"
"\\<\\(a\\(?:ssume\\|utomaton\\)\\|cont\\(?:inue\\|ract\\)\\|d\\(?:efault\\|o\\(?:ne\\)?\\)\\|e\\(?:lse\\|n\\(?:d\\|force\\)\\|very\\)\\|f\\(?:by\\|oldi?\\)\\|i[fn]\\|last\\|m\\(?:ap\\(?:foldi?\\|i\\)?\\|erge\\)\\|on\\(?:ot\\)?\\|pre\\|reset\\|s\\(?:tate\\|witch\\)\\|not\\|then\\|un\\(?:less\\|til\\)\\|w\\(?:hen\\(?:ot\\)?\\|ith\\)\\)\\>"
.
font-lock-keyword-face)
)
......@@ -115,7 +115,7 @@
(save-excursion
(while not-indented
(forward-line -1)
(if (looking-at "^[ \t]*\\(tel\\|end\\|done\\)")
(if (looking-at "^[ \t]*\\(tel\\|end\\|done\\|every\\)")
(progn
(setq cur-indent (current-indentation))
(setq not-indented nil))
......@@ -125,7 +125,7 @@
(progn
(setq cur-indent (+ (current-indentation) default-tab-width))
(setq not-indented nil))
(if (looking-at "^[ \t]*\\(do\\)")
(if (looking-at "^[ \t]*\\(do\\|reset\\)")
(progn
(setq cur-indent (+ (current-indentation) 3))
(setq not-indented nil))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment