syndicate-lang
/
preserves
mirror of https://gitlab.com/preserves/preserves.git
1
0
Fork 1
Code Releases Activity

Repair and simplify comment highlighting in preserves.el

This commit is contained in:
Tony Garnock-Jones 2023-10-31 21:53:54 +01:00
parent 000c0ff2be
commit ac34d3fa8e
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
preserves.el
View File

@ -33,13 +33,9 @@
"Syntax table in use in preserves-mode buffers.")
;; (modify-syntax-entry ?' "\"" preserves-mode-syntax-table)
(modify-syntax-entry ?\n "> 2" preserves-mode-syntax-table)
(modify-syntax-entry ?\r "> 2" preserves-mode-syntax-table)
(modify-syntax-entry ?\t " 2" preserves-mode-syntax-table)
(modify-syntax-entry ?< "(>" preserves-mode-syntax-table)
(modify-syntax-entry ?> ")<" preserves-mode-syntax-table)
(modify-syntax-entry ?# "' 1" preserves-mode-syntax-table)
(modify-syntax-entry ? " 2" preserves-mode-syntax-table)
(mapcar #'(lambda (x) (modify-syntax-entry x "_" preserves-mode-syntax-table))
'(?- ?_ ?$ ?? ?! ?* ?+ ?~ ?: ?= ?| ?\;))
(mapcar #'(lambda (x) (modify-syntax-entry x "." preserves-mode-syntax-table))
@ -47,6 +43,8 @@
(defvar preserves-font-lock-keywords
(list
'("#\n" . font-lock-comment-face)
'("#[ \t].*\n" . font-lock-comment-face)
'("\\_<\\(~\\|[A-Z]\\)[^][)(}{><[:space:].\n]*\\>" . font-lock-type-face)
'("\\\\[[:space:]]*?\n" . font-lock-warning-face)
))