diff options
| author | Pavel Janík | 2002-03-11 13:32:22 +0000 |
|---|---|---|
| committer | Pavel Janík | 2002-03-11 13:32:22 +0000 |
| commit | ee485a83873b03aa98b31e27c7b8224470b46565 (patch) | |
| tree | 131364fa2d25c7823e09ed96193dc28f37b7fc9c | |
| parent | daebae3d8c6e8bb309a65b3360066d8ff4d9d642 (diff) | |
| download | emacs-ee485a83873b03aa98b31e27c7b8224470b46565.tar.gz emacs-ee485a83873b03aa98b31e27c7b8224470b46565.zip | |
(image-type-from-file-header): Make temporary buffer unibyte.
| -rw-r--r-- | lisp/image.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 99 | (setq file (expand-file-name file data-directory))) | 99 | (setq file (expand-file-name file data-directory))) |
| 100 | (setq file (expand-file-name file)) | 100 | (setq file (expand-file-name file)) |
| 101 | (let ((header (with-temp-buffer | 101 | (let ((header (with-temp-buffer |
| 102 | (set-buffer-multibyte nil) | ||
| 102 | (insert-file-contents-literally file nil 0 256) | 103 | (insert-file-contents-literally file nil 0 256) |
| 103 | (buffer-string)))) | 104 | (buffer-string)))) |
| 104 | (image-type-from-data header))) | 105 | (image-type-from-data header))) |