From ac34d3fa8e6170052002fb9e55237b40b16873b4 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 31 Oct 2023 21:53:54 +0100 Subject: [PATCH] Repair and simplify comment highlighting in preserves.el --- preserves.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/preserves.el b/preserves.el index cf015d9..424d849 100644 --- a/preserves.el +++ b/preserves.el @@ -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) ))