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." ...@@ -609,7 +609,7 @@ groups after non-groups, if nil do not order groups at all."
(sort (copy-sequence items) (sort (copy-sequence items)
(lambda (a b) (lambda (a b)
(let ((typea (nth 1 a)) (typeb (nth 1 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) (cond ((not order-groups)
;; Since we don't care about A and B order, maybe sort. ;; Since we don't care about A and B order, maybe sort.
(when sort-alphabetically (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