Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/recentf.el (recentf-exclude-file-by-extension-p): Fix thinko.

Browse source
This commit is contained in:
Michael Albinus 2026-03-06 12:16:49 +01:00
parent 8034e48630
commit 422c3665ad
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/recentf.el
View file

@ -132,11 +132,13 @@ This predicate function is meant to be added to the list in `recentf-exclude'.
It returns non-nil if FILE-NAME's extension is in the list that is
the value of `recentf-exclude-ignored-extensions'; if that variable
is nil, this function consults `completion-ignored-extensions' instead."
(and-let* ((extension (file-name-extension file-name)))
(when-let* ((extension (file-name-extension file-name)))
(string-match-p
(regexp-opt (or recentf-exclude-ignored-extensions
completion-ignored-extensions))
(concat "\\." (regexp-quote extension) "\\'"))))
(concat
(regexp-opt (or recentf-exclude-ignored-extensions
completion-ignored-extensions))
"\\'")
(concat "." extension))))
(defun recentf-access-file (filename)
"Check whether FILENAME is accessible."