Mercurial > emacs
comparison lisp/tar-mode.el @ 23482:43849bed4a16
(tar-mode): Locally set file-precious-flag.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 17 Oct 1998 19:22:41 +0000 |
parents | 0088626fec1c |
children | d30ffa793626 |
comparison
equal
deleted
inserted
replaced
23481:4e3bead33d34 | 23482:43849bed4a16 |
---|---|
599 (setq revert-buffer-function 'tar-mode-revert) | 599 (setq revert-buffer-function 'tar-mode-revert) |
600 (make-local-variable 'local-enable-local-variables) | 600 (make-local-variable 'local-enable-local-variables) |
601 (setq local-enable-local-variables nil) | 601 (setq local-enable-local-variables nil) |
602 (make-local-variable 'next-line-add-newlines) | 602 (make-local-variable 'next-line-add-newlines) |
603 (setq next-line-add-newlines nil) | 603 (setq next-line-add-newlines nil) |
604 ;; Prevent loss of data when saving the file. | |
605 (make-local-variable 'file-precious-flag) | |
606 (setq file-precious-flag t) | |
604 (setq major-mode 'tar-mode) | 607 (setq major-mode 'tar-mode) |
605 (setq mode-name "Tar") | 608 (setq mode-name "Tar") |
606 (use-local-map tar-mode-map) | 609 (use-local-map tar-mode-map) |
607 (auto-save-mode 0) | 610 (auto-save-mode 0) |
608 (make-local-variable 'write-contents-hooks) | 611 (make-local-variable 'write-contents-hooks) |