diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2017-04-07 18:24:35 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-04-07 18:24:35 -0400 |
| commit | 9e27e0d1a6c90d0d29e41884155245b6c3378b0a (patch) | |
| tree | 38b31624dfa3f11a7f01ca0fa5dbf02644fb195d /lisp/net/tramp-gvfs.el | |
| parent | 88532ae818f3e0211c14826a618bd0a80e30e993 (diff) | |
| download | emacs-9e27e0d1a6c90d0d29e41884155245b6c3378b0a.tar.gz emacs-9e27e0d1a6c90d0d29e41884155245b6c3378b0a.tar.bz2 emacs-9e27e0d1a6c90d0d29e41884155245b6c3378b0a.zip | |
Fix handling of non-integer START param to write-region
The previous patch for Bug#354 incorrectly assumed that START would
always be an integer.
* lisp/epa-file.el (epa-file-write-region):
* lisp/jka-compr.el (jka-compr-write-region):
* lisp/net/ange-ftp.el (ange-ftp-write-region):
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-write-region):
* lisp/net/tramp-sh.el (tramp-sh-handle-write-region):
* src/fileio.c (write_region): Handle nil and string values of START.
Diffstat (limited to 'lisp/net/tramp-gvfs.el')
| -rw-r--r-- | lisp/net/tramp-gvfs.el | 6 |
1 files changed, 5 insertions, 1 deletions
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))) |