diff options
| author | Richard M. Stallman | 1997-09-07 18:32:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-07 18:32:24 +0000 |
| commit | 0b79b2ace8aae013282ef814b1f4dcd75057edf7 (patch) | |
| tree | e4cca87ab09286353ab32525fbbca2c6cb923ee9 | |
| parent | d8b9150f331712b803a4a7102ed79b9f0c0b7dac (diff) | |
| download | emacs-0b79b2ace8aae013282ef814b1f4dcd75057edf7.tar.gz emacs-0b79b2ace8aae013282ef814b1f4dcd75057edf7.zip | |
(load-with-code-conversion):
Use third arg to eval-buffer and don't set buffer-file-name.
| -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))) |