# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1147216224 0
# Node ID 2400f78c17e8e8461ab983988a08d38fe7204699
# Parent  536bd22e6a0bddbab3138aa6229a370f57c040bf
(archive-set-buffer-as-visiting-file): Bind buffer-undo-list
to t (undo-ask is reproducible by visiting nested archives).

diff -r 536bd22e6a0b -r 2400f78c17e8 lisp/arc-mode.el
--- a/lisp/arc-mode.el	Tue May 09 23:08:49 2006 +0000
+++ b/lisp/arc-mode.el	Tue May 09 23:10:24 2006 +0000
@@ -863,7 +863,8 @@
   "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