diff options
author | Pavel Janík <Pavel@Janik.cz> | 2002-03-11 13:10:34 +0000 |
---|---|---|
committer | Pavel Janík <Pavel@Janik.cz> | 2002-03-11 13:10:34 +0000 |
commit | e8725fe0ec69afb330e4af2b14c6f126d4de8fdd (patch) | |
tree | 48c858b65b8d5bed707b52373fdcb0c4342f9126 | |
parent | 5adebd84f3f387728156f11cf8c8a87ec53fbb22 (diff) | |
download | emacs-e8725fe0ec69afb330e4af2b14c6f126d4de8fdd.tar.gz |
(image-type-from-file-header): Make temporary buffer unibyte.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/image.el | 1 |
2 files changed, 6 insertions, 0 deletions
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))) |