[Top][All Lists]
[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)