branch: externals/filechooser
commit 904ff4764fe3a74442056e56cd298dea1edbf269
Author: Rahguzar <rahgu...@mailbox.org>
Commit: Rahguzar <rahgu...@mailbox.org>
Fix #16: If no filters are active present every file
---
filechooser.el | 22 ++++++++++++----------
1 file changed, 12 insertions(+), 10 deletions(-)
diff --git a/filechooser.el b/filechooser.el
index c8a9c8ed5b..48c5bc8194 100644
--- a/filechooser.el
+++ b/filechooser.el
@@ -5,7 +5,7 @@
;; Author: rahguzar <rahgu...@mailbox.org>
;; Maintainer: rahguzar <rahgu...@mailbox.org>
;; Created: May 20, 2023
-;; Version: 0.2.2
+;; Version: 0.2.3
;; Keywords: convenience files tools unix
;; Homepage: https://codeberg.org/rahguzar/filechooser
;; Package-Requires: ((emacs "28.1") (compat "29.1"))
@@ -195,15 +195,17 @@ With prefix ARG toggle multiple filters using
`completing-read-multiple'."
(defun filechooser--filters-predicate (name)
"Return non-nil if NAME matches an active filter."
- (catch 'match
- (dolist (filter filechooser--active-filters)
- (when (cond
- ((stringp filter)
- (string-match filter name))
- ((functionp filter)
- (funcall filter name))
- ((error "Unknown filter %S" filter)))
- (throw 'match t)))))
+ (if filechooser--active-filters
+ (catch 'match
+ (dolist (filter filechooser--active-filters)
+ (when (cond
+ ((stringp filter)
+ (string-match filter name))
+ ((functionp filter)
+ (funcall filter name))
+ ((error "Unknown filter %S" filter)))
+ (throw 'match t))))
+ t))
;;; Utility definitions
(defmacro filechooser--maybe-with-new-frame (minibuffer &rest body)
