diff options
| author | Eli Zaretskii | 1998-12-10 13:37:02 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 1998-12-10 13:37:02 +0000 |
| commit | 7d2767808eb12de1c63cf58703f02d1bf83ef5c0 (patch) | |
| tree | 1281d793abceca950e9bc3b11e73ac3ce1f65cfa | |
| parent | dabe36a823eb54686fa4deea4603088d70fa5b41 (diff) | |
| download | emacs-7d2767808eb12de1c63cf58703f02d1bf83ef5c0.tar.gz emacs-7d2767808eb12de1c63cf58703f02d1bf83ef5c0.zip | |
(load-with-code-conversion): If the loaded
file was inserted with no-conversion or raw-text coding system,
make the buffer unibyte.
| -rw-r--r-- | lisp/international/mule.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 4579399457f..31cb9e46916 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el | |||
| @@ -69,6 +69,14 @@ Return t if file exists." | |||
| 69 | (save-excursion | 69 | (save-excursion |
| 70 | (set-buffer buffer) | 70 | (set-buffer buffer) |
| 71 | (insert-file-contents fullname) | 71 | (insert-file-contents fullname) |
| 72 | ;; If the loaded file was inserted with no-conversion or | ||
| 73 | ;; raw-text coding system, make the buffer unibyte. | ||
| 74 | ;; Otherwise, eval-buffer might try to interpret random | ||
| 75 | ;; binary junk as multibyte characters. | ||
| 76 | (if (and enable-multibyte-characters | ||
| 77 | (or (eq (coding-system-type last-coding-system-used) 5) | ||
| 78 | (eq last-coding-system-used 'no-conversion))) | ||
| 79 | (set-buffer-multibyte nil)) | ||
| 72 | ;; Make `kill-buffer' quiet. | 80 | ;; Make `kill-buffer' quiet. |
| 73 | (set-buffer-modified-p nil)) | 81 | (set-buffer-modified-p nil)) |
| 74 | ;; Have the original buffer current while we eval. | 82 | ;; Have the original buffer current while we eval. |