Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use new 'sort' calling convention in json.el

Browse source 
* lisp/json.el (json--print-alist): Use new 'sort' calling
convention for simplicity and potential performance gains.
This commit is contained in:
Basil L. Contovounesios 2025-10-13 16:37:17 +02:00
parent 5ba4446e25
commit 8e71dc6bac
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/json.el
View file

@ -609,12 +609,11 @@ transforms an unsortable MAP into a sortable alist."
"Insert a JSON representation of ALIST at point.
Sort ALIST first if `json-encoding-object-sort-predicate' is
non-nil. Sorting can optionally be DESTRUCTIVE for speed."
(json--print-map (if (and json-encoding-object-sort-predicate alist)
(sort (if destructive alist (copy-sequence alist))
(lambda (a b)
(funcall json-encoding-object-sort-predicate
(car a) (car b))))
alist)))
(json--print-map (let ((pred json-encoding-object-sort-predicate))
(if (and pred alist)
(sort alist :key #'car :lessp pred
:in-place destructive)
alist))))
;; The following two are unused but useful to keep around due to the
;; inherent ambiguity of lists.