From 359476e0f0957e9c55cf3f084a67676b896f60a9 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 13 Apr 2000 19:05:10 +0000 Subject: [PATCH] (custom-sort-items): Avoid symbol-name with new string-lessp. --- lisp/cus-edit.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 50759537ecb..a559fbe60e5 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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 -- 2.39.5