From: Pavel Janík <Pavel@Janik.cz>
Date: Mon, 11 Mar 2002 13:32:22 +0000 (+0000)
Subject: (image-type-from-file-header): Make temporary buffer unibyte.
X-Git-Tag: ttn-vms-21-2-B4~16231
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee485a83873b03aa98b31e27c7b8224470b46565;p=emacs.git

(image-type-from-file-header): Make temporary buffer unibyte.
---

diff --git a/lisp/image.el b/lisp/image.el
index 3c25323853b..b9fcb29cbcd 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -99,6 +99,7 @@ be determined."
     (setq file (expand-file-name file data-directory)))
   (setq file (expand-file-name file))
   (let ((header (with-temp-buffer
+		  (set-buffer-multibyte nil)
 		  (insert-file-contents-literally file nil 0 256)
 		  (buffer-string))))
     (image-type-from-data header)))