Commit d7733755 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent a7cf9151
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment