Commit 359476e0 authored by Dave Love's avatar Dave Love

(custom-sort-items): Avoid symbol-name with new

string-lessp.
parent be0dd657
......@@ -609,7 +609,7 @@ groups after non-groups, if nil do not order groups at all."
(sort (copy-sequence items)
(lambda (a b)
(let ((typea (nth 1 a)) (typeb (nth 1 b))
(namea (symbol-name (nth 0 a))) (nameb (symbol-name (nth 0 b))))
(namea (nth 0 a)) (nameb (nth 0 b)))
(cond ((not order-groups)
;; Since we don't care about A and B order, maybe sort.
(when sort-alphabetically
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment