From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 21 Jan 1997 23:17:12 +0000 (+0000)
Subject: (ange-ftp-load): If fail, return nil.
X-Git-Tag: emacs-20.1~3028
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d773375565927192499daa2319e98a4f188fa0fe;p=emacs.git

(ange-ftp-load): If fail, return nil.
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 215463bbf0b..5f68210d535 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -3772,7 +3772,8 @@ system TYPE.")
 		(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.