From d773375565927192499daa2319e98a4f188fa0fe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 21 Jan 1997 23:17:12 +0000 Subject: [PATCH] (ange-ftp-load): If fail, return nil. --- lisp/ange-ftp.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.5