diff options
| author | Richard M. Stallman | 2004-10-27 17:40:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-27 17:40:19 +0000 |
| commit | bea824fdf3bb58d11c883c3656d2bbaf23ea109c (patch) | |
| tree | f6b88a02819f6d0c838449142e8bca92269ba6d6 | |
| parent | 4660a9e3d607f8c4212f6d2598aa8e83cc7f89ff (diff) | |
| download | emacs-bea824fdf3bb58d11c883c3656d2bbaf23ea109c.tar.gz emacs-bea824fdf3bb58d11c883c3656d2bbaf23ea109c.zip | |
(tar-mode): Use write-contents-functions, not write-contents-hooks.
| -rw-r--r-- | lisp/tar-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 62686d026c1..42dcc0f7a26 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el | |||
| @@ -578,7 +578,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. | |||
| 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)) |