[Emacs-diffs] /srv/bzr/emacs/trunk r106725: * net/ange-ftp.el (ange-ftp-copy-file-internal): Check for

[Michael Albinus]

------------------------------------------------------------
revno: 106725
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2011-12-23 15:31:35 +0100
message:
  * net/ange-ftp.el (ange-ftp-copy-file-internal): Check for
  existence of source file.  (Bug#10325)
modified:
  lisp/ChangeLog
  lisp/net/ange-ftp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-12-23 11:48:54 +0000
+++ b/lisp/ChangeLog    2011-12-23 14:31:35 +0000
@@ -1,3 +1,8 @@
+2011-12-23  Michael Albinus  <address@hidden>
+
+       * net/ange-ftp.el (ange-ftp-copy-file-internal): Check for
+       existence of source file.  (Bug#10325)
+
 2011-12-23  Alan Mackenzie  <address@hidden>
 
        Fix unstable fontification inside templates.

=== modified file 'lisp/net/ange-ftp.el'
--- a/lisp/net/ange-ftp.el      2011-12-12 05:32:49 +0000
+++ b/lisp/net/ange-ftp.el      2011-12-23 14:31:35 +0000
@@ -3637,6 +3637,10 @@
   (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)))