[elpa] externals/tramp 7838879: Tramp ELPA version 2.4.3.3 released

[Michael Albinus]

branch: externals/tramp
commit 78388794005bac4c8f42a4a2075da9ce3709bb24
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Tramp ELPA version 2.4.3.3 released
---
 test/tramp-tests.el |  9 ++++++++-
 texi/tramp.texi     |  8 ++++++++
 texi/trampver.texi  |  2 +-
 tramp-adb.el        |  7 ++++---
 tramp-loaddefs.el   |  2 +-
 tramp-sh.el         |  3 ++-
 tramp-smb.el        |  7 ++++---
 tramp.el            |  5 +++--
 tramp.info          | 30 ++++++++++++++++++------------
 trampver.el         |  4 ++--
 10 files changed, 51 insertions(+), 26 deletions(-)

diff --git a/test/tramp-tests.el b/test/tramp-tests.el
index fb9a6e8..c098bfb 100644
--- a/test/tramp-tests.el
+++ b/test/tramp-tests.el
@@ -2360,7 +2360,14 @@ This checks also `file-name-as-directory', 
`file-name-directory',
                (write-region nil nil tmp-name 3))
              (with-temp-buffer
                (insert-file-contents tmp-name)
-               (should (string-equal (buffer-string) "foobaz"))))
+               (should (string-equal (buffer-string) "foobaz")))
+             (delete-file tmp-name)
+             (with-temp-buffer
+               (insert "foo")
+               (write-region nil nil tmp-name 'append))
+             (with-temp-buffer
+               (insert-file-contents tmp-name)
+               (should (string-equal (buffer-string) "foo"))))
 
            ;; Write string.
            (write-region "foo" nil tmp-name)
diff --git a/texi/tramp.texi b/texi/tramp.texi
index 81ff200..3ee361a 100644
--- a/texi/tramp.texi
+++ b/texi/tramp.texi
@@ -3753,6 +3753,14 @@ It is even possible to access file archives in file 
archives, as
 @end group
 @end lisp
 
+@vindex tramp-archive-enabled
+In order to disable file archives, you could add the following form to
+your init file:
+
+@lisp
+(customize-set-variable 'tramp-archive-enabled nil)
+@end lisp
+
 
 @node Bug Reports
 @chapter Reporting Bugs and Problems
diff --git a/texi/trampver.texi b/texi/trampver.texi
index f102e74..a5f28cc 100644
--- a/texi/trampver.texi
+++ b/texi/trampver.texi
@@ -8,7 +8,7 @@
 @c In the Tramp GIT, the version numbers are auto-frobbed from
 @c tramp.el, and the bug report address is auto-frobbed from
 @c configure.ac.
-@set trampver 2.4.3.2
+@set trampver 2.4.3.3
 @set tramp-bug-report-address tramp-devel@@gnu.org
 @set emacsver 24.4
 
diff --git a/tramp-adb.el b/tramp-adb.el
index 89447c9..4751942 100644
--- a/tramp-adb.el
+++ b/tramp-adb.el
@@ -631,9 +631,6 @@ But handle the case, if the \"test\" command is not 
available."
                     (format "File %s exists; overwrite anyway? " filename)))))
       (tramp-error v 'file-already-exists filename))
 
-    ;; We must also flush the cache of the directory, because
-    ;; `file-attributes' reads the values from there.
-    (tramp-flush-file-properties v localname)
     (let* ((curbuf (current-buffer))
           (tmpfile (tramp-compat-make-temp-file filename)))
       (when (and append (file-exists-p filename))
@@ -650,6 +647,10 @@ But handle the case, if the \"test\" command is not 
available."
              (tramp-error v 'file-error "Cannot write: `%s'" filename))
          (delete-file tmpfile)))
 
+      ;; We must also flush the cache of the directory, because
+      ;; `file-attributes' reads the values from there.
+      (tramp-flush-file-properties v localname)
+
       (unless (equal curbuf (current-buffer))
        (tramp-error
         v 'file-error
diff --git a/tramp-loaddefs.el b/tramp-loaddefs.el
index 1bfbbc7..ecdf774 100644
--- a/tramp-loaddefs.el
+++ b/tramp-loaddefs.el
@@ -654,7 +654,7 @@ UU-encode the region between BEG and END.
 ;;;### (autoloads nil "trampver" "trampver.el" (0 0 0 0))
 ;;; Generated autoloads from trampver.el
 
-(defconst tramp-version "2.4.3.2" "\
+(defconst tramp-version "2.4.3.3" "\
 This version of Tramp.")
 
 (defconst tramp-bug-report-address "address@hidden" "\
diff --git a/tramp-sh.el b/tramp-sh.el
index 9739823..f5429ec 100644
--- a/tramp-sh.el
+++ b/tramp-sh.el
@@ -3294,7 +3294,8 @@ STDERR can also be a file name."
 
          ;; If `append' is non-nil, we copy the file locally, and let
          ;; the native `write-region' implementation do the job.
-         (when append (copy-file filename tmpfile 'ok))
+         (when (and append (file-exists-p filename))
+           (copy-file filename tmpfile 'ok))
 
          ;; We say `no-message' here because we don't want the
          ;; visited file modtime data to be clobbered from the temp
diff --git a/tramp-smb.el b/tramp-smb.el
index 07955ed..cded804 100644
--- a/tramp-smb.el
+++ b/tramp-smb.el
@@ -1555,9 +1555,6 @@ errors for shares like \"C$/\", which are common in 
Microsoft Windows."
                     (format "File %s exists; overwrite anyway? " filename)))))
       (tramp-error v 'file-already-exists filename))
 
-    ;; We must also flush the cache of the directory, because
-    ;; `file-attributes' reads the values from there.
-    (tramp-flush-file-properties v localname)
     (let ((curbuf (current-buffer))
          (tmpfile (tramp-compat-make-temp-file filename)))
       (when (and append (file-exists-p filename))
@@ -1577,6 +1574,10 @@ errors for shares like \"C$/\", which are common in 
Microsoft Windows."
              (tramp-error v 'file-error "Cannot write `%s'" filename))
          (delete-file tmpfile)))
 
+      ;; We must also flush the cache of the directory, because
+      ;; `file-attributes' reads the values from there.
+      (tramp-flush-file-properties v localname)
+
       (unless (equal curbuf (current-buffer))
        (tramp-error
         v 'file-error
diff --git a/tramp.el b/tramp.el
index 3f07423..a016ed1 100644
--- a/tramp.el
+++ b/tramp.el
@@ -7,7 +7,7 @@
 ;; Maintainer: Michael Albinus <address@hidden>
 ;; Keywords: comm, processes
 ;; Package: tramp
-;; Version: 2.4.3.2
+;; Version: 2.4.3.3
 ;; Package-Requires: ((emacs "24.4"))
 ;; Package-Type: multi
 ;; URL: https://savannah.gnu.org/projects/tramp
@@ -37,7 +37,7 @@
 ;; For more detailed instructions, please see the info file.
 ;;
 ;; Notes:
-;; -----
+;; ------
 ;;
 ;; Also see the todo list at the bottom of this file.
 ;;
@@ -46,6 +46,7 @@
 ;;
 ;; There's a mailing list for this, as well.  Its name is:
 ;;            address@hidden
+
 ;; You can use the Web to subscribe, under the following URL:
 ;;            https://lists.gnu.org/mailman/listinfo/tramp-devel
 ;;
diff --git a/tramp.info b/tramp.info
index 9ef74c4..680c89a 100644
--- a/tramp.info
+++ b/tramp.info
@@ -21,10 +21,10 @@ END-INFO-DIR-ENTRY
 
 File: tramp.info,  Node: Top,  Next: Overview,  Prev: (dir),  Up: (dir)
 
-TRAMP 2.4.3.2 User Manual
+TRAMP 2.4.3.3 User Manual
 *************************
 
-This file documents TRAMP 2.4.3.2, a remote file editing package for
+This file documents TRAMP 2.4.3.3, a remote file editing package for
 Emacs.
 
    TRAMP stands for “Transparent Remote (file) Access, Multiple
@@ -2774,6 +2774,11 @@ allows complex file operations like
        (find-file
         
"http://ftp.debian.org/debian/pool/main/c/coreutils/coreutils_8.28-1_amd64.deb/control.tar.gz/control";))
 
+   In order to disable file archives, you could add the following form
+to your init file:
+
+     (customize-set-variable 'tramp-archive-enabled nil)
+
 
 File: tramp.info,  Node: Bug Reports,  Next: Frequently Asked Questions,  
Prev: Usage,  Up: Top
 
@@ -4181,6 +4186,7 @@ Variable Index
 * tramp-adb-program:                     External methods.    (line 185)
 * tramp-archive-all-gvfs-methods:        Archive file names.  (line  91)
 * tramp-archive-compression-suffixes:    Archive file names.  (line  83)
+* tramp-archive-enabled:                 Archive file names.  (line 117)
 * tramp-archive-suffixes:                Archive file names.  (line  27)
 * tramp-auto-save-directory:             Auto-save and Backup.
                                                               (line  68)
@@ -4622,16 +4628,16 @@ Ref: Running a debugger on a remote host104553
 Node: Cleanup remote connections106523
 Node: Renaming remote files108224
 Node: Archive file names112443
-Node: Bug Reports116808
-Node: Frequently Asked Questions119476
-Node: Files directories and localnames143372
-Node: Localname deconstruction143808
-Node: External packages144461
-Node: Traces and Profiles146506
-Node: GNU Free Documentation License148475
-Node: Function Index173848
-Node: Variable Index176726
-Node: Concept Index184335
+Node: Bug Reports116957
+Node: Frequently Asked Questions119625
+Node: Files directories and localnames143521
+Node: Localname deconstruction143957
+Node: External packages144610
+Node: Traces and Profiles146655
+Node: GNU Free Documentation License148624
+Node: Function Index173997
+Node: Variable Index176875
+Node: Concept Index184557
 
 End Tag Table
 
diff --git a/trampver.el b/trampver.el
index d2dadc6..c3eb847 100644
--- a/trampver.el
+++ b/trampver.el
@@ -39,7 +39,7 @@
 (defvar inhibit-message)
 
 ;;;###tramp-autoload
-(defconst tramp-version "2.4.3.2"
+(defconst tramp-version "2.4.3.3"
   "This version of Tramp.")
 
 ;;;###tramp-autoload
@@ -73,7 +73,7 @@
 ;; Check for Emacs version.
 (let ((x   (if (not (string-lessp emacs-version "24.4"))
       "ok"
-    (format "Tramp 2.4.3.2 is not fit for %s"
+    (format "Tramp 2.4.3.3 is not fit for %s"
             (replace-regexp-in-string "\n" "" (emacs-version))))))
   (unless (string-equal "ok" x) (error "%s" x)))