From: Eshel Yaron <me@eshelyaron.com>
Date: Tue, 13 Aug 2024 05:31:30 +0000 (+0200)
Subject: Update 'elisp-fontify-region'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e4c20f25255137cc051d79ca9819bca230fe8fa1;p=emacs.git

Update 'elisp-fontify-region'
---

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))))))