Repair and simplify comment highlighting in preserves.el
This commit is contained in:
parent
000c0ff2be
commit
ac34d3fa8e
|
@ -33,13 +33,9 @@
|
||||||
"Syntax table in use in preserves-mode buffers.")
|
"Syntax table in use in preserves-mode buffers.")
|
||||||
|
|
||||||
;; (modify-syntax-entry ?' "\"" preserves-mode-syntax-table)
|
;; (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 ?> ")<" 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))
|
||||||
'(?- ?_ ?$ ?? ?! ?* ?+ ?~ ?: ?= ?| ?\;))
|
'(?- ?_ ?$ ?? ?! ?* ?+ ?~ ?: ?= ?| ?\;))
|
||||||
(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
|
(defvar preserves-font-lock-keywords
|
||||||
(list
|
(list
|
||||||
|
'("#\n" . font-lock-comment-face)
|
||||||
|
'("#[ \t].*\n" . font-lock-comment-face)
|
||||||
'("\\_<\\(~\\|[A-Z]\\)[^][)(}{><[:space:].\n]*\\>" . font-lock-type-face)
|
'("\\_<\\(~\\|[A-Z]\\)[^][)(}{><[:space:].\n]*\\>" . font-lock-type-face)
|
||||||
'("\\\\[[:space:]]*?\n" . font-lock-warning-face)
|
'("\\\\[[:space:]]*?\n" . font-lock-warning-face)
|
||||||
))
|
))
|
||||||
|
|
Loading…
Reference in New Issue