diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2013-06-20 13:45:45 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2013-06-20 13:45:45 +0200 |
| commit | 4a172eab51a3d0d3d5823c6d8c84d6caa862b27a (patch) | |
| tree | 990e7d07417730c6b99c21dee4b15f71081836a2 /lisp/arc-mode.el | |
| parent | d5b27848d6272a979ba59455ef9ccc8feb54e1e8 (diff) | |
| download | emacs-4a172eab51a3d0d3d5823c6d8c84d6caa862b27a.tar.gz | |
* arc-mode.el (archive-mode): Add `archive-write-file' also for
remote files. (Bug#14652)
Diffstat (limited to 'lisp/arc-mode.el')
| -rw-r--r-- | lisp/arc-mode.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 4fc04b706b5..5f001ad977b 100644 --- a/lisp/arc-mode.el +++ b/lisp/arc-mode.el @@ -689,9 +689,7 @@ archive. (setq revert-buffer-function 'archive-mode-revert) (auto-save-mode 0) - ;; Remote archives are not written by a hook. - (if archive-remote nil - (add-hook 'write-contents-functions 'archive-write-file nil t)) + (add-hook 'write-contents-functions 'archive-write-file nil t) (make-local-variable 'require-final-newline) (setq require-final-newline nil) |