Kill URL buffer in url-insert-file-contents-literally

* lisp/url/url-handlers.el (url-insert-file-contents-literally):
Kill the URL buffer after use.
This commit is contained in:
Lars Ingebrigtsen 2022-10-02 15:49:50 +02:00
parent 4efb2ef572
commit eb02c4d230

View file

@ -371,7 +371,9 @@ if it had been inserted from a file named URL."
(let ((buffer (url-retrieve-synchronously url)))
(unless buffer
(signal 'file-error (list url "No Data")))
(url-insert buffer nil nil t)))
(url-insert buffer nil nil t)
(kill-buffer buffer)
nil))
(defun url-file-name-completion (url _directory &optional _predicate)
;; Even if it's not implemented, it's not an error to ask for completion,