Commit bffcee0a authored by Michael Albinus's avatar Michael Albinus
Browse files

* net/ange-ftp.el (ange-ftp-copy-file-internal): Check for

existence of source file.  (Bug#10325)
parent 9022ae07
2011-12-23 Michael Albinus <michael.albinus@gmx.de>
* net/ange-ftp.el (ange-ftp-copy-file-internal): Check for
existence of source file. (Bug#10325)
2011-12-23 Alan Mackenzie <acm@muc.de>
Fix unstable fontification inside templates.
......
......@@ -3637,6 +3637,10 @@ so return the size on the remote host exactly. See RFC 3659."
(setq filename (expand-file-name filename)
newname (expand-file-name newname))
(or (file-exists-p filename)
(signal 'file-error
(list "Copy file" "no such file or directory" filename)))
;; canonicalize newname if a directory.
(if (file-directory-p newname)
(setq newname (expand-file-name (file-name-nondirectory filename) newname)))
......
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