(archive-set-buffer-as-visiting-file): Bind buffer-undo-list

to t (undo-ask is reproducible by visiting nested archives).

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index ac8ee271642..96b41eca88d 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -863,7 +863,8 @@ using `make-temp-file', and the generated name is returned."
   "Set the current buffer as if it were visiting FILENAME."
   (save-excursion
     (goto-char (point-min))
-    (let ((coding
+    (let ((buffer-undo-list t)
+          (coding
            (or coding-system-for-read
                (and set-auto-coding-function
                     (save-excursion