# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 913297022 0
# Node ID 2ce75856e89fca26c4e2c37339735a73b3a2ed30
# Parent  b2aa39f6d9238c3b0ef784c5cccdcc622ccde02a
(load-with-code-conversion): If the loaded
file was inserted  with no-conversion or raw-text coding system,
make the buffer unibyte.

diff -r b2aa39f6d923 -r 2ce75856e89f lisp/international/mule.el
--- a/lisp/international/mule.el	Thu Dec 10 06:41:00 1998 +0000
+++ b/lisp/international/mule.el	Thu Dec 10 13:37:02 1998 +0000
@@ -69,6 +69,14 @@
 	    (save-excursion
 	      (set-buffer buffer)
 	      (insert-file-contents fullname)
+	      ;; If the loaded file was inserted with no-conversion or
+	      ;; raw-text coding system, make the buffer unibyte.
+	      ;; Otherwise, eval-buffer might try to interpret random
+	      ;; binary junk as multibyte characters.
+	      (if (and enable-multibyte-characters
+		       (or (eq (coding-system-type last-coding-system-used) 5)
+			   (eq last-coding-system-used 'no-conversion)))
+		  (set-buffer-multibyte nil))
 	      ;; Make `kill-buffer' quiet.
 	      (set-buffer-modified-p nil))
 	    ;; Have the original buffer current while we eval.