From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Richard Stallman Newsgroups: gmane.emacs.devel Subject: Re: Bug in latest CVS. Date: Thu, 19 Sep 2002 14:57:41 -0400 Sender: emacs-devel-admin@gnu.org Message-ID: References: <200209181948.OAA00504@eel.dms.auburn.edu> Reply-To: rms@gnu.org NNTP-Posting-Host: localhost.gmane.org X-Trace: main.gmane.org 1032461938 16669 127.0.0.1 (19 Sep 2002 18:58:58 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 19 Sep 2002 18:58:58 +0000 (UTC) Cc: teirllm@dms.auburn.edu, emacs-devel@gnu.org Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 17s6Vs-0004Kg-00 for ; Thu, 19 Sep 2002 20:58:56 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 17s7Am-0003qb-00 for ; Thu, 19 Sep 2002 21:41:13 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 17s6WC-0003Tn-00; Thu, 19 Sep 2002 14:59:16 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10) id 17s6Uh-00035O-00 for emacs-devel@gnu.org; Thu, 19 Sep 2002 14:57:43 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10) id 17s6Uf-00035C-00 for emacs-devel@gnu.org; Thu, 19 Sep 2002 14:57:42 -0400 Original-Received: from fencepost.gnu.org ([199.232.76.164]) by monty-python.gnu.org with esmtp (Exim 4.10) id 17s6Uf-000356-00 for emacs-devel@gnu.org; Thu, 19 Sep 2002 14:57:41 -0400 Original-Received: from rms by fencepost.gnu.org with local (Exim 4.10) id 17s6Uf-0002va-00; Thu, 19 Sep 2002 14:57:41 -0400 Original-To: halley@play-bow.org In-reply-to: (message from Bob Halley on 18 Sep 2002 12:52:18 -0700) Errors-To: emacs-devel-admin@gnu.org X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: Emacs development discussions. List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.emacs.devel:8023 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:8023 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)