diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-02 15:49:50 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-10-02 15:50:02 +0200 |
commit | eb02c4d23088ed3b6806f2a8df2922301dbd515c (patch) | |
tree | ae80671dc2408f91eebf5aa3385f85f14b3cbcfe /lisp/url/url-handlers.el | |
parent | 4efb2ef57237147111de90781755f666b3cb9bdd (diff) | |
download | emacs-eb02c4d23088ed3b6806f2a8df2922301dbd515c.tar.gz |
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.
Diffstat (limited to 'lisp/url/url-handlers.el')
-rw-r--r-- | lisp/url/url-handlers.el | 4 |
1 files changed, 3 insertions, 1 deletions
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, |