Mercurial > emacs
comparison lisp/tar-mode.el @ 57747:97a3201f82ef
(tar-mode): Use write-contents-functions, not write-contents-hooks.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Oct 2004 17:40:19 +0000 |
| parents | a698ac56864a |
| children | 7042d543a356 e24e2e78deda |
comparison
equal
deleted
inserted
replaced
| 57746:394f5aa03475 | 57747:97a3201f82ef |
|---|---|
| 576 (set (make-local-variable 'local-enable-local-variables) nil) | 576 (set (make-local-variable 'local-enable-local-variables) nil) |
| 577 (set (make-local-variable 'next-line-add-newlines) nil) | 577 (set (make-local-variable 'next-line-add-newlines) nil) |
| 578 ;; Prevent loss of data when saving the file. | 578 ;; Prevent loss of data when saving the file. |
| 579 (set (make-local-variable 'file-precious-flag) t) | 579 (set (make-local-variable 'file-precious-flag) t) |
| 580 (auto-save-mode 0) | 580 (auto-save-mode 0) |
| 581 (set (make-local-variable 'write-contents-hooks) '(tar-mode-write-file)) | 581 (set (make-local-variable 'write-contents-functions) '(tar-mode-write-file)) |
| 582 (widen) | 582 (widen) |
| 583 (if (and (boundp 'tar-header-offset) tar-header-offset) | 583 (if (and (boundp 'tar-header-offset) tar-header-offset) |
| 584 (narrow-to-region (point-min) (byte-to-position tar-header-offset)) | 584 (narrow-to-region (point-min) (byte-to-position tar-header-offset)) |
| 585 (tar-summarize-buffer) | 585 (tar-summarize-buffer) |
| 586 (tar-next-line 0))) | 586 (tar-next-line 0))) |