From 42a896742c74c13fe8c064e3735db3f5fd40989d Mon Sep 17 00:00:00 2001 From: Benson Chu Date: Wed, 13 Aug 2025 14:27:11 -0500 Subject: [PATCH] Don't care about casing! --- lisp/self-chat-mode.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/self-chat-mode.el b/lisp/self-chat-mode.el index a6098ac..6003a15 100644 --- a/lisp/self-chat-mode.el +++ b/lisp/self-chat-mode.el @@ -12,7 +12,7 @@ (define-derived-mode self-chat-mode fundamental-mode "self-chat" "This is a mode where I become crazy and talk to myself." - (setq font-lock-defaults '(self-chat-highlights)) + (setq font-lock-defaults '(self-chat-highlights nil t)) (olivetti-mode 1)) (defun self-chat-buffer () @@ -148,10 +148,10 @@ shuffling is done in place." "'s face for self-chat-mode")) (defvar ,face-sym ',face-sym) (add-to-list 'self-chat-highlights - '(,(rx symbol-start (literal name) symbol-end) 0 ,face-sym prepend) - t) + '(,(rx symbol-start (literal name) symbol-end) . ,face-sym)) (add-to-list 'self-chat-highlights - '(,(format "^> %s:.*$" name) . ,face-sym))) + '(,(format "^> %s:.*$" name) 0 ,face-sym keep) + t)) (cl-incf num)))) list))))