From e4c20f25255137cc051d79ca9819bca230fe8fa1 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 13 Aug 2024 07:31:30 +0200 Subject: [PATCH] Update 'elisp-fontify-region' --- lisp/progmodes/elisp-mode.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 07602d3ad6c..8d29993ff00 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el @@ -378,12 +378,12 @@ happens in interactive invocations." (scope (current-buffer)) (end-of-file nil))) (cond - ((numberp bin) - (font-lock-append-text-property sym (+ sym len) 'face (if (= sym bin) + ((or (numberp bin) (and (consp bin) (eq (car bin) 'gen))) + (font-lock-append-text-property sym (+ sym len) 'face (if (equal sym bin) 'elisp-binding-variable 'elisp-bound-variable)) (put-text-property sym (+ sym len 1) 'cursor-sensor-functions - (elisp-cursor-sensor bin))) + (elisp-cursor-sensor sym))) ((eq bin 'function) (font-lock-append-text-property sym (+ sym len) 'face 'font-lock-function-call-face)) (t (font-lock-append-text-property sym (+ sym len) 'face 'elisp-free-variable)))))) -- 2.39.2