changeset 23481:4e3bead33d34

(archive-mode): Locally set file-precious-flag.
author Richard M. Stallman <rms@gnu.org>
date Sat, 17 Oct 1998 19:21:37 +0000
parents 2046e6b0bc8e
children 43849bed4a16
files lisp/arc-mode.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/arc-mode.el	Sat Oct 17 15:29:39 1998 +0000
+++ b/lisp/arc-mode.el	Sat Oct 17 19:21:37 1998 +0000
@@ -526,6 +526,10 @@
 	(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.