Commit bbf52c14 authored by Paul Eggert's avatar Paul Eggert

Adjust jka-compr to recent Tramp changes.

* lisp/jka-compr.el (jka-compr-write-region):
Two new args LOCKNAME and MUSTBENEW.
parent a685d9d7
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment