diff options
| -rw-r--r-- | lisp/international/mule.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 104991bdcf7..66e82575ec4 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -58,13 +58,10 @@ Return t if file exists." | |||
| 58 | ;; This is buffer-local. | 58 | ;; This is buffer-local. |
| 59 | (setq enable-multibyte-characters t) | 59 | (setq enable-multibyte-characters t) |
| 60 | (insert-file-contents fullname) | 60 | (insert-file-contents fullname) |
| 61 | ;; We must set `buffer-file-name' for `eval-buffer' and | ||
| 62 | ;; `load-history'. | ||
| 63 | (setq buffer-file-name file) | ||
| 64 | ;; Make `kill-buffer' quiet. | 61 | ;; Make `kill-buffer' quiet. |
| 65 | (set-buffer-modified-p nil)) | 62 | (set-buffer-modified-p nil)) |
| 66 | ;; Eval in the original buffer. | 63 | ;; Eval in the original buffer. |
| 67 | (eval-buffer buffer)) | 64 | (eval-buffer buffer nil file)) |
| 68 | (let (kill-buffer-hook kill-buffer-query-functions) | 65 | (let (kill-buffer-hook kill-buffer-query-functions) |
| 69 | (kill-buffer buffer))) | 66 | (kill-buffer buffer))) |
| 70 | (let ((hook (assoc file after-load-alist))) | 67 | (let ((hook (assoc file after-load-alist))) |