Mercurial > emacs
comparison lisp/cus-dep.el @ 47528:227850832281
(custom-make-dependencies): Sort MEMBERS before use.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Sep 2002 16:01:21 +0000 |
| parents | b174db545cfd |
| children | bb2e6b4867d5 |
comparison
equal
deleted
inserted
replaced
| 47527:7d7d818ed852 | 47528:227850832281 |
|---|---|
| 84 ") | 84 ") |
| 85 (mapatoms (lambda (symbol) | 85 (mapatoms (lambda (symbol) |
| 86 (let ((members (get symbol 'custom-group)) | 86 (let ((members (get symbol 'custom-group)) |
| 87 item where found) | 87 item where found) |
| 88 (when members | 88 (when members |
| 89 ;; So x and no-x builds won't differ. | |
| 90 (setq members (sort (copy-sequence members) 'string<)) | |
| 89 (while members | 91 (while members |
| 90 (setq item (car (car members)) | 92 (setq item (car (car members)) |
| 91 members (cdr members) | 93 members (cdr members) |
| 92 where (get item 'custom-where)) | 94 where (get item 'custom-where)) |
| 93 (unless (or (null where) | 95 (unless (or (null where) |