forked from syndicate-lang/preserves
Unconfuse preserves emacs-mode with muon emacs-mode
This commit is contained in:
parent
1054cd4219
commit
f6bbe191ab
44
preserves.el
44
preserves.el
|
@ -47,51 +47,8 @@
|
|||
(list
|
||||
'("\\_<\\(~\\|[A-Z]\\)[^][)(}{><[:space:].\n]*\\>" . font-lock-type-face)
|
||||
'("\\\\[[:space:]]*?\n" . font-lock-warning-face)
|
||||
'("\\." . font-lock-builtin-face)
|
||||
(cons (regexp-opt '("->"
|
||||
"<-"
|
||||
"*"
|
||||
"+"
|
||||
"-"
|
||||
"/"
|
||||
"="
|
||||
"<"
|
||||
">"
|
||||
"<="
|
||||
">="
|
||||
"=="
|
||||
"!="
|
||||
"|"
|
||||
)
|
||||
'symbols)
|
||||
'font-lock-builtin-face)
|
||||
(cons (regexp-opt '(
|
||||
"coerce"
|
||||
"match"
|
||||
"ref"
|
||||
"value"
|
||||
)
|
||||
'words)
|
||||
'font-lock-builtin-face)
|
||||
(cons (regexp-opt '(
|
||||
"block"
|
||||
"import"
|
||||
"let"
|
||||
"namespace"
|
||||
"operator"
|
||||
"try"
|
||||
"view"
|
||||
"while"
|
||||
)
|
||||
'words)
|
||||
'font-lock-keyword-face)
|
||||
))
|
||||
|
||||
(defvar preserves-syntax-propertize-function
|
||||
(syntax-propertize-rules
|
||||
("->" (0 "_"))
|
||||
("<-" (0 "_"))))
|
||||
|
||||
(defun preserves-mode-variables ()
|
||||
(make-local-variable 'comment-use-syntax)
|
||||
(make-local-variable 'comment-start)
|
||||
|
@ -105,7 +62,6 @@
|
|||
(setq font-lock-defaults '(preserves-font-lock-keywords nil nil ()))
|
||||
(make-local-variable 'indent-line-function)
|
||||
(setq indent-line-function #'preserves-indent-line)
|
||||
(setq syntax-propertize-function preserves-syntax-propertize-function)
|
||||
)
|
||||
|
||||
(defvar preserves-indent-basic 2
|
||||
|
|
Loading…
Reference in New Issue