mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(image-type): Check if image-types is bound to not fail on tty.

Browse Source
This commit is contained in:
Juri Linkov 2007-10-06 22:17:49 +00:00
parent 7017d784e7
commit 28681e350c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/image.el
View File

@ -323,7 +323,7 @@ Optional DATA-P non-nil means SOURCE is a string containing image data."
(or (image-type-from-file-header source)
(image-type-from-file-name source))))
(or type (error "Cannot determine image type")))
(or (memq type image-types)
(or (memq type (and (boundp 'image-types) image-types))
(error "Invalid image type `%s'" type))
type)