bug#24469: undo-tree and ... when printing objects

[Lars Ingebrigtsen]

Fabrice Popineau <fabrice.popineau@gmail.com> writes:

> Following-up to this bug report.
>
> I think this patch may fix the problem.
>
> diff --git a/undo-tree.el b/undo-tree.el
> index 57bbaa0..4ac4fa5 100644
> --- a/undo-tree.el
> +++ b/undo-tree.el
> @@ -3105,7 +3105,9 @@ without asking for confirmation."
>                 (with-temp-buffer
>                    (prin1 (sha1 buff) (current-buffer))
>                    (terpri (current-buffer))
> -                 (let ((print-circle t)) (prin1 tree (current-buffer)))
> +                  (let ((print-circle t)
> +                        (print-length nil)
> +                        (print-level nil)) (prin1 tree (current-buffer)))
>                    (write-region nil nil filename))))

Looks obviously correct, so I've applied this without testing.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no