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

Fix hfy-exclude-file-rules (bug#60562)

Browse source 
* lisp/htmlfontify.el (hfy-exclude-file-rules):
Fix broken defcustom type; no longer fails test-custom-opts.
Fix regexps not to use newline-sensitive patterns like `.` and `$`
which do not make sense when matching file names.
Better doc string.
* lisp/htmlfontify.el (hfy-list-files): Simplify regexp argument.
This commit is contained in:
Mattias Engdegård 2023-01-15 15:23:44 +01:00
parent c1d32d9a20
commit e8c77d9abd
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/htmlfontify.el
View file

@ -373,13 +373,13 @@ otherwise."
:type '(string))
(defcustom hfy-exclude-file-rules
'("\\.flc$"
"/CVS/.*"
".*~$"
"/\\.git\\(?:/.*\\)?$")
"Define some regular expressions to exclude files"
'("\\.flc\\'"
"/CVS/"
"~\\'"
"/\\.git\\(?:/\\|\\'\\)")
"Regular expressions matching files to exclude."
:tag "exclude-rules"
:type '(list string)
:type '(repeat regexp)
:version "29.1")
(defcustom hfy-display-class nil
@ -1835,7 +1835,7 @@ Strips any leading \"./\" from each filename."
(seq-some (lambda (r)
(string-match r f))
hfy-exclude-file-rules)))
(directory-files-recursively "." ".*" nil t)))
(directory-files-recursively "." "" nil t)))
;; strip the filename off, return a directory name
;; not a particularly thorough implementation, but it will be