Fix regexp for list-files

This commit is contained in:
Marcus Kammer 2022-08-13 18:43:20 +02:00
parent 8d9f71bad2
commit 2e243bdef6
Signed by: marcuskammer
GPG key ID: C374817BE285268F

View file

@ -91,9 +91,10 @@
("<\/?(?:p|a|b|img)(?: \/)?>" "matchig specific tags")))
(defun me/list-files (folder suffix)
(let* ((regexp (concat "^.*\." suffix))
(files (directory-files folder nil regexp)))
files))
(let ((regexp (concat "\\." suffix "$")))
(directory-files folder nil regexp)))
(defun me/build-file-suffix ())
(defun me/copy-files (src-dir dst-dir suffix)
(let ((src-files '())