[Emacs-diffs] master bbf52c1: Adjust jka-compr to recent Tramp changes.

[Paul Eggert]

branch: master
commit bbf52c142afbb9e10bf2ae20b3c77993fda26b43
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Adjust jka-compr to recent Tramp changes.
    
    * lisp/jka-compr.el (jka-compr-write-region):
    Two new args LOCKNAME and MUSTBENEW.
---
 lisp/jka-compr.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 26a7cf5..9e780f8 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -252,7 +252,8 @@ There should be no more than seven characters after the 
final `/'."
   "This routine will return the name of a new file."
   (make-temp-file jka-compr-temp-name-template))
 
-(defun jka-compr-write-region (start end file &optional append visit)
+(defun jka-compr-write-region (start end file &optional
+                                     append visit lockname mustbenew)
   (let* ((filename (expand-file-name file))
         (visit-file (if (stringp visit) (expand-file-name visit) filename))
         (info (jka-compr-get-compression-info visit-file))
@@ -334,7 +335,8 @@ There should be no more than seven characters after the 
final `/'."
              (jka-compr-run-real-handler 'write-region
                                          (list (point-min) (point-max)
                                                filename
-                                               (and append can-append) 'dont))
+                                               (and append can-append) 'dont
+                                               lockname mustbenew))
              (erase-buffer)) )
 
          (delete-file temp-file)
@@ -365,7 +367,8 @@ There should be no more than seven characters after the 
final `/'."
          nil)
 
       (jka-compr-run-real-handler 'write-region
-                                 (list start end filename append visit)))))
+                                 (list start end filename append visit
+                                       lockname mustbenew)))))
 
 
 (defun jka-compr-insert-file-contents (file &optional visit beg end replace)