mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 03:40:56 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
string-lessp.
This commit is contained in:
Dave Love 2000-04-13 19:05:10 +00:00
parent be0dd6570e
commit 359476e0f0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/cus-edit.el
View file

@ -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