bug#39805: 28.0.50; scan-sexps (scan_lists) incorrectly parsing circular list

[No Wayman <iarchivedmywholelife@gmail.com>]

Noam Postavsky <npostavs@gmail.com> writes:

> It doesn't fail if the buffer is changed to emacs-lisp-mode 
> before the
> pp-buffer call.

In the meantime, I'd like to be able to offer the users of my 
package a solution if they hit this bug.
This seems to work for me, but I haven't written much, and am a 
bit leery of, elisp advice.
Would you consider this an appropriate workaround?:

(defun workaround/describe-variable-print-bug (original-function 
&rest args)
  "Put temp buffer in emacs-lisp before ORIGINAL-FUNCTION: 
  `pp-buffer'.
https://lists.gnu.org/archive/html/emacs-bug-tracker/2020-02/msg00376.html"
  (cl-flet ((pp-advice (original-function)
                       (when (string-prefix-p " *temp" 
                       (buffer-name))
                         (let ((mm major-mode))
                           (emacs-lisp-mode)
                           (funcall original-function)
                           (funcall mm)))))
    (advice-add #'pp-buffer :around #'pp-advice)
    (unwind-protect
        (progn
          (apply original-function args)
          nil)
      (advice-remove #'pp-buffer #'pp-advice))))

(advice-add #'describe-variable :around 
#'workaround/describe-variable-print-bug)