From: Pavel Janík <Pavel@Janik.cz>
Date: Mon, 11 Mar 2002 13:10:34 +0000 (+0000)
Subject: (image-type-from-file-header): Make temporary buffer unibyte.
X-Git-Tag: emacs-21.2~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8725fe0ec69afb330e4af2b14c6f126d4de8fdd;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a584cd570b5..0ba68fd1d80 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-11  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* image.el (image-type-from-file-header): Make temporary buffer
+	unibyte.
+
 2002-03-09  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* simple.el (shell-command-on-region): Call push-mark with
diff --git a/lisp/image.el b/lisp/image.el
index e4c2387d78e..f58355b2670 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -97,6 +97,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)))