# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908652161 0
# Node ID 43849bed4a16ae52a28429e9e498563563b96806
# Parent  4e3bead33d342c87594555f7bbf746311c9c5917
(tar-mode): Locally set file-precious-flag.

diff -r 4e3bead33d34 -r 43849bed4a16 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Sat Oct 17 19:21:37 1998 +0000
+++ b/lisp/tar-mode.el	Sat Oct 17 19:22:41 1998 +0000
@@ -601,6 +601,9 @@
   (setq local-enable-local-variables nil)
   (make-local-variable 'next-line-add-newlines)
   (setq next-line-add-newlines nil)
+  ;; Prevent loss of data when saving the file.
+  (make-local-variable 'file-precious-flag)
+  (setq file-precious-flag t)
   (setq major-mode 'tar-mode)
   (setq mode-name "Tar")
   (use-local-map tar-mode-map)