branch: externals/denote-sequence
commit 216a21503df8d83a6dd51783c0810c04537422a5
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Cover alphanumeric-delimited in denote-sequence-filter-scheme
---
denote-sequence.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/denote-sequence.el b/denote-sequence.el
index 479fe097ae..90cab5850c 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -796,7 +796,8 @@ return value of `denote-sequence-get-all-sequences'."
"Return list of SEQUENCES that are `denote-sequence-scheme' or SCHEME."
(let ((predicate (pcase (or scheme denote-sequence-scheme)
('alphanumeric #'denote-sequence-alphanumeric-p)
- ('numeric #'denote-sequence-numeric-p))))
+ ('numeric #'denote-sequence-numeric-p)
+ ('alphanumeric-delimited
#'denote-sequence-alphanumeric-delimited-p))))
(seq-filter predicate sequences)))
(defun denote-sequence--get-new-child (sequence &optional sequences)
