branch: externals/denote
commit 7f3715ddd3a988afdf0b527e276ee8cfe9b9f9d8
Merge: 9f41d3f594 fffe24dbf5
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: GitHub <nore...@github.com>
Merge pull request #518 from migliio/main
Use older-compatible `sort` call in `denote-sequence--get-largest`
---
denote-sequence.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/denote-sequence.el b/denote-sequence.el
index 7d85a78ed0..a476e99eb2 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -192,11 +192,10 @@ means to pad the full length of the sequence."
"Return largest sequence in SEQUENCES given TYPE.
TYPE is a symbol among `denote-sequence-types'."
(car (sort sequences
- :lessp (lambda (s1 s2)
- (string<
- (denote-sequence--pad s1 type)
- (denote-sequence--pad s2 type)))
- :reverse t)))
+ (lambda (s1 s2)
+ (string<
+ (denote-sequence--pad s1 type)
+ (denote-sequence--pad s2 type))))))
(defun denote-sequence--get-new-parent (&optional sequences)
"Return a new to increment largest among sequences.
