From e8725fe0ec69afb330e4af2b14c6f126d4de8fdd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Pavel=20Jan=C3=ADk?= Date: Mon, 11 Mar 2002 13:10:34 +0000 Subject: [PATCH] (image-type-from-file-header): Make temporary buffer unibyte. --- lisp/ChangeLog | 5 +++++ lisp/image.el | 1 + 2 files changed, 6 insertions(+) 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 + + * image.el (image-type-from-file-header): Make temporary buffer + unibyte. + 2002-03-09 Eli Zaretskii * 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))) -- 2.39.5