Make n'/
p' in image-mode also find externally converted images
* lisp/image-file.el (image-file-name-regexp): Use it to make `n'/`p' in image mode work (bug#39994). * lisp/image/image-converter.el (image-converter-file-name-extensions): New variable to keep track of all suffixes. (image-convert-p): Update. (image-converter--find-converter): Set.
This commit is contained in:
parent
79527cd56e
commit
e1f09607e0
2 changed files with 18 additions and 8 deletions
|
@ -32,6 +32,7 @@
|
|||
;;; Code:
|
||||
|
||||
(require 'image)
|
||||
(require 'image-converter)
|
||||
|
||||
|
||||
;;;###autoload
|
||||
|
@ -80,10 +81,13 @@ the variable is set using \\[customize]."
|
|||
(let ((exts-regexp
|
||||
(and image-file-name-extensions
|
||||
(concat "\\."
|
||||
(regexp-opt (nconc (mapcar #'upcase
|
||||
image-file-name-extensions)
|
||||
image-file-name-extensions)
|
||||
t)
|
||||
(regexp-opt
|
||||
(append (mapcar #'upcase image-file-name-extensions)
|
||||
image-file-name-extensions
|
||||
(mapcar #'upcase
|
||||
image-converter-file-name-extensions)
|
||||
image-converter-file-name-extensions)
|
||||
t)
|
||||
"\\'"))))
|
||||
(mapconcat
|
||||
'identity
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue