diff options
| author | Richard M. Stallman | 1997-07-04 00:17:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-07-04 00:17:55 +0000 |
| commit | cfc70cdfd0e2809255c37a93cc84961ff2494d99 (patch) | |
| tree | d7405c123b05f3d3111f17340bd40307575f735d | |
| parent | 12eb8433586f4c8d5ffd572283e1f495ae130d6f (diff) | |
| download | emacs-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.el | 3 |
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)))) |