/[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.17 by pj, Mon Jul 16 12:22:58 2001 UTC revision 1.18 by rms, Wed Sep 18 16:01:21 2002 UTC
# Line 86  Usage: emacs -batch -l ./cus-dep.el -f c Line 86  Usage: emacs -batch -l ./cus-dep.el -f c
86                (let ((members (get symbol 'custom-group))                (let ((members (get symbol 'custom-group))
87                      item where found)                      item where found)
88                  (when members                  (when members
89                      ;; So x and no-x builds won't differ.
90                      (setq members (sort (copy-sequence members) 'string<))
91                    (while members                    (while members
92                      (setq item (car (car members))                      (setq item (car (car members))
93                            members (cdr members)                            members (cdr members)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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