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/ange-ftp.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/ange-ftp.el')
| -rw-r--r-- | lisp/net/ange-ftp.el | 6 |
1 files changed, 5 insertions, 1 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)))) |