diff options
| author | Juri Linkov <juri@jurta.org> | 2006-05-09 23:10:24 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2006-05-09 23:10:24 +0000 |
| commit | ab3050bc5d919063e1146f87ccb09fc341ee2dbc (patch) | |
| tree | 19c4d8813150c846b87bc109a4bc67b8cb0bfed9 /lisp | |
| parent | 757210d152e88303dbf5786efe81add0c2691b81 (diff) | |
| download | emacs-ab3050bc5d919063e1146f87ccb09fc341ee2dbc.tar.gz emacs-ab3050bc5d919063e1146f87ccb09fc341ee2dbc.tar.bz2 emacs-ab3050bc5d919063e1146f87ccb09fc341ee2dbc.zip | |
(archive-set-buffer-as-visiting-file): Bind buffer-undo-list
to t (undo-ask is reproducible by visiting nested archives).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/arc-mode.el | 3 |
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 |