Update 'elisp-fontify-region'

diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el
index 07602d3ad6c5f70f5e92314992b0dec4b8004b53..8d29993ff0070a7a9e2ee2320cc376e5d85fb28c 100644 (file)
--- 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))))))