aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1997-07-04 00:17:55 +0000
committerRichard M. Stallman1997-07-04 00:17:55 +0000
commitcfc70cdfd0e2809255c37a93cc84961ff2494d99 (patch)
treed7405c123b05f3d3111f17340bd40307575f735d
parent12eb8433586f4c8d5ffd572283e1f495ae130d6f (diff)
downloademacs-cfc70cdfd0e2809255c37a93cc84961ff2494d99.tar.gz
emacs-cfc70cdfd0e2809255c37a93cc84961ff2494d99.zip
(load-with-code-conversion):
Don't run kill-buffer-hook or kill-buffer-query-functions.
-rw-r--r--lisp/international/mule.el3
1 files changed, 2 insertions, 1 deletions
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."
63 (set-buffer-modified-p nil)) 63 (set-buffer-modified-p nil))
64 ;; Eval in the original buffer. 64 ;; Eval in the original buffer.
65 (eval-buffer buffer)) 65 (eval-buffer buffer))
66 (kill-buffer buffer)) 66 (let (kill-buffer-hook kill-buffer-query-functions)
67 (kill-buffer buffer)))
67 (let ((hook (assoc file after-load-alist))) 68 (let ((hook (assoc file after-load-alist)))
68 (if hook 69 (if hook
69 (mapcar (function eval) (cdr hook)))) 70 (mapcar (function eval) (cdr hook))))