/[emacs]/emacs/lisp/cus-dep.el
ViewVC logotype

Diff of /emacs/lisp/cus-dep.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by rms, Thu Sep 19 18:57:48 2002 UTC revision 1.20 by rms, Fri Sep 20 03:44:38 2002 UTC
# Line 89  Usage: emacs -batch -l ./cus-dep.el -f c Line 89  Usage: emacs -batch -l ./cus-dep.el -f c
89                    ;; So x and no-x builds won't differ.                    ;; So x and no-x builds won't differ.
90                    (setq members                    (setq members
91                          (sort (copy-sequence members)                          (sort (copy-sequence members)
92                                (lambda (x y)                                (lambda (x y) (string< (car x) (car 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)))))))  
93                    (while members                    (while members
94                      (setq item (car (car members))                      (setq item (car (car members))
95                            members (cdr members)                            members (cdr members)

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26