From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Oct 1998 19:21:37 +0000 (+0000)
Subject: (archive-mode): Locally set file-precious-flag.
X-Git-Tag: emacs-20.4~1468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=938c647261b4f3c2a97507d8c98218c6ee92eff9;p=emacs.git

(archive-mode): Locally set file-precious-flag.
---

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 0085c13e47e..cc9f10531e7 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -526,6 +526,10 @@ archive.
 	(make-local-variable 'local-enable-local-variables)
 	(setq local-enable-local-variables nil)
 
+	;; Prevent loss of data when saving the file.
+	(make-local-variable 'file-precious-flag)
+	(setq file-precious-flag t)
+
 	(make-local-variable 'archive-read-only)
 	;; Archives which are inside other archives and whose
 	;; names are invalid for this OS, can't be written.