From ab3050bc5d919063e1146f87ccb09fc341ee2dbc Mon Sep 17 00:00:00 2001
From: Juri Linkov <juri@jurta.org>
Date: Tue, 9 May 2006 23:10:24 +0000
Subject: [PATCH] (archive-set-buffer-as-visiting-file): Bind buffer-undo-list
 to t (undo-ask is reproducible by visiting nested archives).

---
 lisp/arc-mode.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
2.39.5