diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 6 | ||||
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 6 | ||||
| -rw-r--r-- | lisp/net/tramp-sh.el | 5 |
3 files changed, 14 insertions, 3 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index aecb9e1ecbe..6e84269e308 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -3284,7 +3284,11 @@ system TYPE.") (set-buffer-modified-p nil))) ;; ensure `last-coding-system-used' has an appropriate value (setq last-coding-system-used coding-system-used) - (ange-ftp-message "Wrote %d characters to `%s'" (- end start) abbr) + (ange-ftp-message "Wrote %d characters to `%s'" + (cond ((null start) (buffer-size)) + ((stringp start) (length start)) + (t (- end start))) + abbr) (ange-ftp-add-file-entry filename)) (ange-ftp-real-write-region start end filename append visit)))) diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el index 8ab34af85b7..b7477271d70 100644 --- a/lisp/net/tramp-gvfs.el +++ b/lisp/net/tramp-gvfs.el @@ -1223,7 +1223,11 @@ file-notify events." ;; The end. (when (or (eq visit t) (null visit) (stringp visit)) - (tramp-message v 0 "Wrote %d characters to `%s'" (- end start) filename)) + (tramp-message v 0 "Wrote %d characters to `%s'" + (cond ((null start) (buffer-size)) + ((stringp start) (length start)) + (t (- end start))) + filename)) (run-hooks 'tramp-handle-write-region-hook))) diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index f78f54154fd..a8556b9a0d0 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -3412,7 +3412,10 @@ the result will be a local, non-Tramp, file name." (tramp-set-file-uid-gid filename uid gid)) (when (or (eq visit t) (null visit) (stringp visit)) (tramp-message v 0 "Wrote %d characters to `%s'" - (- end start) filename)) + (cond ((null start) (buffer-size)) + ((stringp start) (length start)) + (t (- end start))) + filename)) (run-hooks 'tramp-handle-write-region-hook))))) (defvar tramp-vc-registered-file-names nil |