# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1032461868 0
# Node ID bb2e6b4867d5e4ba0be3fe56bcf88fc279790627
# Parent  173f3c942338625cd16bdd6906b3ff824a7bcef5
(custom-make-dependencies): Fix previous change.

diff -r 173f3c942338 -r bb2e6b4867d5 lisp/cus-dep.el
--- a/lisp/cus-dep.el	Thu Sep 19 15:25:38 2002 +0000
+++ b/lisp/cus-dep.el	Thu Sep 19 18:57:48 2002 +0000
@@ -87,7 +87,17 @@
 		    item where found)
 		(when members
 		  ;; So x and no-x builds won't differ.
-		  (setq members (sort (copy-sequence members) 'string<))
+		  (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)