# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 853888632 0
# Node ID 49435b5ecb298b25576ec213c3ff1f7318500b0b
# Parent  8d28d96f60318affcd405805457c12bd3e77c62d
(ange-ftp-load): If fail, return nil.

diff -r 8d28d96f6031 -r 49435b5ecb29 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Tue Jan 21 17:41:30 1997 +0000
+++ b/lisp/ange-ftp.el	Tue Jan 21 23:17:12 1997 +0000
@@ -3772,7 +3772,8 @@
 		(funcall 'load copy noerror nomessage nosuffix)
 	      (delete-file copy))
 	  (or noerror
-	      (signal 'file-error (list "Cannot open load file" file)))))
+	      (signal 'file-error (list "Cannot open load file" file)))
+	  nil))
     (ange-ftp-real-load file noerror nomessage nosuffix)))
 
 ;; Calculate default-unhandled-directory for a given ange-ftp buffer.