From: Dave Love <fx@gnu.org>
Date: Thu, 13 Apr 2000 19:05:10 +0000 (+0000)
Subject: (custom-sort-items): Avoid symbol-name with new
X-Git-Tag: emacs-pretest-21.0.90~4270
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=359476e0f0957e9c55cf3f084a67676b896f60a9;p=emacs.git

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

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