diff options
| author | Dave Love | 2000-04-13 19:05:10 +0000 |
|---|---|---|
| committer | Dave Love | 2000-04-13 19:05:10 +0000 |
| commit | 359476e0f0957e9c55cf3f084a67676b896f60a9 (patch) | |
| tree | 44d7033e94509ad497978c16ad3272a274946cd4 | |
| parent | be0dd6570ea73286a7bfab096d05dd5e859ecf46 (diff) | |
| download | emacs-359476e0f0957e9c55cf3f084a67676b896f60a9.tar.gz emacs-359476e0f0957e9c55cf3f084a67676b896f60a9.zip | |
(custom-sort-items): Avoid symbol-name with new
string-lessp.
| -rw-r--r-- | lisp/cus-edit.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 609 | (sort (copy-sequence items) | 609 | (sort (copy-sequence items) |
| 610 | (lambda (a b) | 610 | (lambda (a b) |
| 611 | (let ((typea (nth 1 a)) (typeb (nth 1 b)) | 611 | (let ((typea (nth 1 a)) (typeb (nth 1 b)) |
| 612 | (namea (symbol-name (nth 0 a))) (nameb (symbol-name (nth 0 b)))) | 612 | (namea (nth 0 a)) (nameb (nth 0 b))) |
| 613 | (cond ((not order-groups) | 613 | (cond ((not order-groups) |
| 614 | ;; Since we don't care about A and B order, maybe sort. | 614 | ;; Since we don't care about A and B order, maybe sort. |
| 615 | (when sort-alphabetically | 615 | (when sort-alphabetically |