Font-lock variable values in *Help*

* lisp/help-fns.el (describe-variable): Font-lock the variable
value (bug#47363).

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 43855cd6d721b00daebd48b4005306b77b5e2219..364fce4ea64ac183f8cfcf748fd5348e498e626c 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -1239,10 +1239,11 @@ it is displayed along with the global value."
                    (terpri)
                     (let ((buf (current-buffer)))
                       (with-temp-buffer
-                        (lisp-mode-variables nil)
+                        (lisp-data-mode)
                         (set-syntax-table emacs-lisp-mode-syntax-table)
                         (insert print-rep)
                         (pp-buffer)
+                        (font-lock-ensure)
                         (let ((pp-buffer (current-buffer)))
                           (with-current-buffer buf
                             (insert-buffer-substring pp-buffer)))))