[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Bug in latest CVS.
From: |
Richard Stallman |
Subject: |
Re: Bug in latest CVS. |
Date: |
Thu, 19 Sep 2002 14:57:41 -0400 |
Does this fix it?
*** cus-dep.el.~1.18.~ Tue Sep 17 09:47:57 2002
--- cus-dep.el Thu Sep 19 14:49:30 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)