Mercurial > emacs
comparison lisp/international/mule.el @ 66345:27a95070b049
(load-with-code-conversion):
Pass full file name to `eval-buffer' unless preloading.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 23 Oct 2005 18:24:00 +0000 |
| parents | ed770a0a7846 |
| children | 527e6fc032c7 b31326248cf6 |
comparison
equal
deleted
inserted
replaced
| 66344:eed78bd4684c | 66345:27a95070b049 |
|---|---|
| 83 (eq last-coding-system-used 'no-conversion))) | 83 (eq last-coding-system-used 'no-conversion))) |
| 84 (set-buffer-multibyte nil)) | 84 (set-buffer-multibyte nil)) |
| 85 ;; Make `kill-buffer' quiet. | 85 ;; Make `kill-buffer' quiet. |
| 86 (set-buffer-modified-p nil)) | 86 (set-buffer-modified-p nil)) |
| 87 ;; Have the original buffer current while we eval. | 87 ;; Have the original buffer current while we eval. |
| 88 (eval-buffer buffer nil file | 88 (eval-buffer buffer nil |
| 89 ;; This is compatible with what `load' does. | |
| 90 (if purify-flag file fullname) | |
| 89 ;; If this Emacs is running with --unibyte, | 91 ;; If this Emacs is running with --unibyte, |
| 90 ;; convert multibyte strings to unibyte | 92 ;; convert multibyte strings to unibyte |
| 91 ;; after reading them. | 93 ;; after reading them. |
| 92 ;; (not default-enable-multibyte-characters) | 94 ;; (not default-enable-multibyte-characters) |
| 93 nil t | 95 nil t |