emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Use older-compatible sort call in denote-sequence--get-largest

Browse source 
As pointed out in #516, the `sort` function seems to have a
mismatching paradigm depending on the Emacs version the code is run
on. However, the `denote-sequence--get-largest` implementation was
simply using the `:in-place` key as third argument, while the original
implementation of `sort` only accepted two arguments, which is not
necessary. The sorting is done in place anyhow. This commit modifies
the `denote-sequence--get-largest` function to be compatible with
older Emacs versions.
This commit is contained in:
Claudio Migliorelli 2025-01-04 17:02:00 +01:00
parent 9f41d3f594
commit fffe24dbf5
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
denote-sequence.el
View file

@ -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.