Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Correct the usage of `image-file-name-regexps'

Browse source 
* lisp/image-file.el (image-file-name-regexp): Treat
`image-file-name-regexps' as a list of regexps (as documented) in
addition to a regexp string (bug#57971).

Copyright-paperwork-exempt: yes
This commit is contained in:
Thuna 2022-09-21 13:51:53 +02:00 committed by Lars Ingebrigtsen
parent 3ed9a1b0be
commit 7a36828dc3
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/image-file.el
View file

@ -91,9 +91,10 @@ the variable is set using \\[customize]."
"\\'"))))
(mapconcat
#'identity
(delq nil (list exts-regexp
image-file-name-regexps
(car (rassq 'imagemagick image-type-file-name-regexps))))
(delq nil
(nconc (list exts-regexp
(car (rassq 'imagemagick image-type-file-name-regexps)))
(ensure-list image-file-name-regexps)))
"\\|")))