[Emacs-diffs] Changes to emacs/lisp/cus-dep.el

[Richard M. Stallman]

Index: emacs/lisp/cus-dep.el
diff -c emacs/lisp/cus-dep.el:1.18 emacs/lisp/cus-dep.el:1.19
*** emacs/lisp/cus-dep.el:1.18  Wed Sep 18 12:01:21 2002
--- emacs/lisp/cus-dep.el       Thu Sep 19 14:57:48 2002
***************
*** 87,93 ****
                    item where found)
                (when members
                  ;; So x and no-x builds won't differ.
!                 (setq members (sort (copy-sequence members) 'string<))
                  (while members
                    (setq item (car (car members))
                          members (cdr members)
--- 87,103 ----
                    item where found)
                (when members
                  ;; So x and no-x builds won't differ.
!                 (setq members
!                       (sort (copy-sequence members) 
!                             (lambda (x y)
!                               (cond ((and (stringp x) (stringp y))
!                                      (string< x y))
!                                     ;; Put all non-strings before strings.
!                                     ((stringp y) t)
!                                     ((stringp x) nil)
!                                     ;; For two non-strings,
!                                     ;; use the order they appear in MEMBERS.
!                                     (t (member y (member x members)))))))
                  (while members
                    (setq item (car (car members))
                          members (cdr members)