diff options
| author | Richard M. Stallman | 1997-01-21 23:17:12 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-01-21 23:17:12 +0000 |
| commit | d773375565927192499daa2319e98a4f188fa0fe (patch) | |
| tree | 51b4f13739e75ecd06b6b90e22ffa47220beebda /lisp | |
| parent | a7cf915174c9e1031b30c53238f1a0d784ca95ec (diff) | |
| download | emacs-d773375565927192499daa2319e98a4f188fa0fe.tar.gz emacs-d773375565927192499daa2319e98a4f188fa0fe.zip | |
(ange-ftp-load): If fail, return nil.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
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.") | |||
| 3772 | (funcall 'load copy noerror nomessage nosuffix) | 3772 | (funcall 'load copy noerror nomessage nosuffix) |
| 3773 | (delete-file copy)) | 3773 | (delete-file copy)) |
| 3774 | (or noerror | 3774 | (or noerror |
| 3775 | (signal 'file-error (list "Cannot open load file" file))))) | 3775 | (signal 'file-error (list "Cannot open load file" file))) |
| 3776 | nil)) | ||
| 3776 | (ange-ftp-real-load file noerror nomessage nosuffix))) | 3777 | (ange-ftp-real-load file noerror nomessage nosuffix))) |
| 3777 | 3778 | ||
| 3778 | ;; Calculate default-unhandled-directory for a given ange-ftp buffer. | 3779 | ;; Calculate default-unhandled-directory for a given ange-ftp buffer. |