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.

diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el
index b66c187c5472e737178ce9422b8ba05d8ca231a0..cb115fceb23070ea2ab8cd85ab9c6c870aae4f5c 100644 (file)
--- a/lisp/url/url-handlers.el
+++ b/lisp/url/url-handlers.el
@@ -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,