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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a584cd570b50d26cf7f8035e27cd50254d3a086d..0ba68fd1d80853851bc81bd1b3f6c1c0a6c40bd1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-11  Pavel Jan\e,Bm\e(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 e4c2387d78e3a86b0e89fd74d1ae211bebe16b55..f58355b267009412320e81e375e3808938d31bf6 100644 (file)
--- 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)))