From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 2 Oct 2022 13:49:50 +0000 (+0200)
Subject: Kill URL buffer in url-insert-file-contents-literally
X-Git-Tag: emacs-29.0.90~1856^2~79
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb02c4d23088ed3b6806f2a8df2922301dbd515c;p=emacs.git

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 b66c187c547..cb115fceb23 100644
--- 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,