Font-lock variable values in *Help*

* lisp/help-fns.el (describe-variable): Font-lock the variable
value (bug#47363).
This commit is contained in:
Lars Ingebrigtsen 2022-06-26 21:41:42 +02:00
commit 19c44e2be3

View file

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