From cfc70cdfd0e2809255c37a93cc84961ff2494d99 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 4 Jul 1997 00:17:55 +0000 Subject: [PATCH] (load-with-code-conversion): Don't run kill-buffer-hook or kill-buffer-query-functions. --- lisp/international/mule.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 32eac27d0c7..f9a9e07a3c8 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -63,7 +63,8 @@ Return t if file exists." (set-buffer-modified-p nil)) ;; Eval in the original buffer. (eval-buffer buffer)) - (kill-buffer buffer)) + (let (kill-buffer-hook kill-buffer-query-functions) + (kill-buffer buffer))) (let ((hook (assoc file after-load-alist))) (if hook (mapcar (function eval) (cdr hook)))) -- 2.39.2