Mercurial > hg > xemacs-beta

comparison lisp/prim/make-docfile.el @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents 6075d714658b
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
37 (defvar processed nil) 37 (defvar processed nil)
38 (defvar docfile nil) 38 (defvar docfile nil)
39 (defvar docfile-buffer nil) 39 (defvar docfile-buffer nil)
40 (defvar site-file-list nil) 40 (defvar site-file-list nil)
41 (defvar docfile-out-of-date nil) 41 (defvar docfile-out-of-date nil)
42
43 ;; BOGUS
44 (defvar find-file-hooks nil)
42 45
43 ;; Gobble up the stuff we don't wish to pass on. 46 ;; Gobble up the stuff we don't wish to pass on.
44 (setq command-line-args (cdr (cdr (cdr (cdr command-line-args))))) 47 (setq command-line-args (cdr (cdr (cdr (cdr command-line-args)))))
45 48
46 ;; First gather up the command line options. 49 ;; First gather up the command line options.
128 (file-newer-than-file-p arg docfile)) 131 (file-newer-than-file-p arg docfile))
129 (setq docfile-out-of-date t)) 132 (setq docfile-out-of-date t))
130 (setq processed (cons arg processed))))) 133 (setq processed (cons arg processed)))))
131 (setq site-load-packages (cdr site-load-packages))))) 134 (setq site-load-packages (cdr site-load-packages)))))
132 135
133 (let ((autoloads (list-autoloads))) 136 (packages-find-packages package-path t)
137
138 (let ((autoloads (list-autoloads-path)))
134 ;; (print (concat "Autoloads: " (prin1-to-string autoloads))) 139 ;; (print (concat "Autoloads: " (prin1-to-string autoloads)))
135 (while autoloads 140 (while autoloads
136 (let ((arg (car autoloads))) 141 (let ((arg (car autoloads)))
137 (if (null (member arg processed)) 142 (if (null (member arg processed))
138 (progn 143 (progn
144 ;; (print arg)
139 (if (and (null docfile-out-of-date) 145 (if (and (null docfile-out-of-date)
140 (file-newer-than-file-p arg docfile)) 146 (file-newer-than-file-p arg docfile))
141 (setq docfile-out-of-date t)) 147 (setq docfile-out-of-date t))
142 (setq processed (cons arg processed)))) 148 (setq processed (cons arg processed))))
143 (setq autoloads (cdr autoloads))))) 149 (setq autoloads (cdr autoloads)))))
169 'identity 175 'identity
170 (append 176 (append
171 (list (concat default-directory "../lib-src/make-docfile")) 177 (list (concat default-directory "../lib-src/make-docfile"))
172 options processed) 178 options processed)
173 " ")) 179 " "))
180 ;; (print (prin1-to-string (append options processed)))
174 (apply 'call-process-internal 181 (apply 'call-process-internal
175 ;; (concat default-directory "../lib-src/make-docfile") 182 ;; (concat default-directory "../lib-src/make-docfile")
176 "make-docfile" 183 "make-docfile"
177 nil 184 nil
178 t 185 t