Mercurial > emacs
changeset 16916:49435b5ecb29
(ange-ftp-load): If fail, return nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 21 Jan 1997 23:17:12 +0000 |
| parents | 8d28d96f6031 |
| children | 5aabcff9fdd3 |
| files | lisp/ange-ftp.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.