procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Allow using image-convert to view .bmp images

Browse source 
* lisp/image.el (image-type-from-file-name): Allow Emacs to fall
back on image-convert to display .bmp images (bug#54492).
This commit is contained in:
Lars Ingebrigtsen 2022-03-21 17:19:03 +01:00
parent 20c4eca343
commit ede8ad507d
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/image.el
View file

@ -378,16 +378,16 @@ be determined."
;;;###autoload
(defun image-type-from-file-name (file)
"Determine the type of image file FILE from its name.
Value is a symbol specifying the image type, or nil if type cannot
be determined."
(let (type first (case-fold-search t))
Value is a symbol specifying the image type, or nil if type
cannot be determined (or if Emacs doesn't have built-in support
for the image type)."
(let ((case-fold-search t)
type)
(catch 'found
(dolist (elem image-type-file-name-regexps first)
(when (string-match-p (car elem) file)
(if (image-type-available-p (setq type (cdr elem)))
(throw 'found type)
;; If nothing seems to be supported, return first type that matched.
(or first (setq first type))))))))
(dolist (elem image-type-file-name-regexps)
(when (and (string-match-p (car elem) file)
(image-type-available-p (setq type (cdr elem))))
(throw 'found type))))))
(declare-function image-convert-p "image-converter.el"
(source &optional image-format))