From 4a172eab51a3d0d3d5823c6d8c84d6caa862b27a Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Thu, 20 Jun 2013 13:45:45 +0200 Subject: [PATCH] * arc-mode.el (archive-mode): Add `archive-write-file' also for remote files. (Bug#14652) --- lisp/ChangeLog | 5 +++++ lisp/arc-mode.el | 4 +--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4633e83292..85626bf868 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-06-20 Michael Albinus + + * arc-mode.el (archive-mode): Add `archive-write-file' also for + remote files. (Bug#14652) + 2013-06-20 Juanma Barranquero * cus-edit.el (custom-commands): Fix typos. diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el index 4fc04b706b..5f001ad977 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) -- 2.20.1