Mercurial > emacs

comparison lisp/image.el @ 43834:aa881082fd04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(image-type-from-file-header): Make temporary buffer unibyte.
author Pavel Janík <Pavel@Janik.cz>
date Mon, 11 Mar 2002 13:32:22 +0000
parents b1023d722287
children 65ad7b458435
comparison
equal deleted inserted replaced
43833:37bc1e73d4b3 43834:aa881082fd04
97 be determined." 97 be determined."
98 (unless (file-name-directory file) 98 (unless (file-name-directory file)
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)))
105 106
106 107