[Emacs-diffs] trunk r113095: * arc-mode.el (archive-mode): Add `archive-write-file' also for

[Michael Albinus]

------------------------------------------------------------
revno: 113095
revision-id: address@hidden
parent: address@hidden
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Thu 2013-06-20 13:45:45 +0200
message:
  * arc-mode.el (archive-mode): Add `archive-write-file' also for
  remote files.  (Bug#14652)
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/arc-mode.el               arcmode.el-20091113204419-o5vbwnq5f7feedwu-877

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-20 11:29:30 +0000
+++ b/lisp/ChangeLog    2013-06-20 11:45:45 +0000
@@ -1,3 +1,8 @@
+2013-06-20  Michael Albinus  <address@hidden>
+
+       * arc-mode.el (archive-mode): Add `archive-write-file' also for
+       remote files.  (Bug#14652)
+
 2013-06-20  Juanma Barranquero  <address@hidden>
 
        * cus-edit.el (custom-commands): Fix typos.

=== modified file 'lisp/arc-mode.el'
--- a/lisp/arc-mode.el  2013-02-09 12:52:01 +0000
+++ b/lisp/arc-mode.el  2013-06-20 11:45:45 +0000
@@ -689,9 +689,7 @@
        (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)