; (pp-display-expression): Enable undo in output buffer

* lisp/emacs-lisp/pp.el (pp-display-expression): Enable undo.

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index d586fc59939091d355bb3409eb18f8e7db94c849..33b583a8ffa3aaa4167b6c4ae7e18a24a5343db7 100644 (file)
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -358,6 +358,7 @@ after OUT-BUFFER-NAME."
       (with-current-buffer standard-output
        (emacs-lisp-mode)
        (setq buffer-read-only nil)
+       (setq buffer-undo-list nil)
         (setq-local font-lock-verbose nil)))))
 
 (defun pp-insert-short-sexp (sexp &optional width)