Mercurial > emacs

comparison lisp/tar-mode.el @ 23482:43849bed4a16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)