diff options
| author | Karl Heuer | 1997-09-26 21:39:10 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-09-26 21:39:10 +0000 |
| commit | 2c1e5f9b25cc8c277c8af90b0c2ce0d36ed5b3f1 (patch) | |
| tree | d53a6c600b18b40540836b34c1ea3bdedb005b44 | |
| parent | 1ea275c0c38d5fd960eda0832f9520846f6a9496 (diff) | |
| download | emacs-2c1e5f9b25cc8c277c8af90b0c2ce0d36ed5b3f1.tar.gz emacs-2c1e5f9b25cc8c277c8af90b0c2ce0d36ed5b3f1.zip | |
(archive-mode): Use write-contents-hooks.
| -rw-r--r-- | lisp/arc-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 72a5578f38d..767093ef51d 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el | |||
| @@ -520,8 +520,8 @@ archive. | |||
| 520 | (make-local-variable 'revert-buffer-function) | 520 | (make-local-variable 'revert-buffer-function) |
| 521 | (setq revert-buffer-function 'archive-mode-revert) | 521 | (setq revert-buffer-function 'archive-mode-revert) |
| 522 | (auto-save-mode 0) | 522 | (auto-save-mode 0) |
| 523 | (make-local-variable 'local-write-file-hooks) | 523 | (make-local-variable 'write-contents-hooks) |
| 524 | (add-hook 'local-write-file-hooks 'archive-write-file) | 524 | (add-hook 'write-contents-hooks 'archive-write-file) |
| 525 | 525 | ||
| 526 | ;; Real file contents is binary | 526 | ;; Real file contents is binary |
| 527 | (make-local-variable 'require-final-newline) | 527 | (make-local-variable 'require-final-newline) |