Mercurial > emacs
comparison lisp/arc-mode.el @ 19998:b93ac48bafd1
(archive-mode): Use write-contents-hooks.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 26 Sep 1997 21:39:10 +0000 |
| parents | 09d355f9877e |
| children | 5bf13ca1dbac |
comparison
equal
deleted
inserted
replaced
| 19997:5b29242aea2a | 19998:b93ac48bafd1 |
|---|---|
| 518 | 518 |
| 519 ;; Buffer contains treated image of file before the file contents | 519 ;; Buffer contains treated image of file before the file contents |
| 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) |
| 528 (setq require-final-newline nil) | 528 (setq require-final-newline nil) |
| 529 (make-local-variable 'enable-local-variables) | 529 (make-local-variable 'enable-local-variables) |