emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Richard M. Stallman
Subject: [Emacs-diffs] Changes to emacs/lisp/cus-dep.el
Date: Thu, 19 Sep 2002 23:44:39 -0400

Index: emacs/lisp/cus-dep.el
diff -c emacs/lisp/cus-dep.el:1.19 emacs/lisp/cus-dep.el:1.20
*** emacs/lisp/cus-dep.el:1.19  Thu Sep 19 14:57:48 2002
--- emacs/lisp/cus-dep.el       Thu Sep 19 23:44:38 2002
***************
*** 89,103 ****
                  ;; 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)
--- 89,95 ----
                  ;; So x and no-x builds won't differ.
                  (setq members
                        (sort (copy-sequence members) 
!                             (lambda (x y) (string< (car x) (car y)))))
                  (while members
                    (setq item (car (car members))
                          members (cdr members)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]