From 14e25c87b0f3041111156697f1fd56cec929cf4a Mon Sep 17 00:00:00 2001 From: Masatake YAMATO Date: Sat, 20 Nov 2004 03:57:59 +0000 Subject: [PATCH] (url-mm-callback): Delay the invocation of `mm-destroy-parts'. Invoke `mm-destroy-parts' when the buffer is killed. --- lisp/url/ChangeLog | 6 ++++++ lisp/url/url.el | 5 ++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index eb10dd2a933..8f97d48bc46 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,9 @@ +2004-11-20 Masatake YAMATO + + * url.el (url-mm-callback): Delay the invocation + of `mm-destroy-parts'. Invoke `mm-destroy-parts' + when the buffer is killed. + 2004-11-12 Masatake YAMATO * url-mailto.el (url-mailto): Fix a typo in the diff --git a/lisp/url/url.el b/lisp/url/url.el index 75ddfdc3a2f..f94e965129a 100644 --- a/lisp/url/url.el +++ b/lisp/url/url.el @@ -207,7 +207,10 @@ no further processing). URL is either a string or a parsed URL." (message "Viewing externally") (kill-buffer (current-buffer))) (display-buffer (current-buffer)) - (mm-destroy-parts handle))))) + (add-hook 'kill-buffer-hook + `(lambda () (mm-destroy-parts ',handle)) + nil + t))))) (defun url-mm-url (url) "Retrieve URL and pass to the appropriate viewing application." -- 2.39.2