Fix regexp for list-files
This commit is contained in:
parent
8d9f71bad2
commit
2e243bdef6
1 changed files with 4 additions and 3 deletions
|
@ -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 '())
|
||||
|
|
Loading…
Add table
Reference in a new issue