Correcting myself,
Nicolas Goaziou <[email protected]> writes:
> (cond
> (cache)
> (is-url
> (with-current-buffer (url-retrieve-synchronously file)
> (goto-char (point-min))
> (if (re-search-forward "HTTP.*\\s-+200\\s-OK" nil t)
> ;; URL retrieved correctly. Move point to after the
> ;; url-retrieve header, update the cache `org--file-cache'
> ;; and return contents.
> (progn
> (search-forward "\n\n" nil 'move)
> (puthash file
> (buffer-substring-no-properties (point) (point-max))
> org--file-cache))
> (funcall (if noerror #'message #'user-error)
> (format "Unable to fetch file from %S" file)))))
Err.
(funcall (if noerror #'message #'user-error)
"Unable to fetch file from %S"
file)
Also, in your patch,
"Test whether FILE is a URL.
Return non-nil if it is."
->
"Non-nil if FILE is a URL."
