Commit 4986d1f1 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(custom-make-dependencies): Fix previous change.

parent 9811b1cf
2002-09-19 Richard M. Stallman <>
* cus-dep.el (custom-make-dependencies): Fix previous change.
2002-09-19 Juanma Barranquero <> 2002-09-19 Juanma Barranquero <>
* ielm.el (ielm-eval-input): Call `error-message-string' instead * ielm.el (ielm-eval-input): Call `error-message-string' instead
...@@ -87,7 +87,17 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS" ...@@ -87,7 +87,17 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
item where found) item where found)
(when members (when members
;; So x and no-x builds won't differ. ;; 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 (while members
(setq item (car (car members)) (setq item (car (car members))
members (cdr members) members (cdr members)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment