Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 239:41f2f0e326e9 r20-5b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b18
author cvs
date Mon, 13 Aug 2007 10:15:48 +0200
parents 89ec2bb86eea
children 8efd647ea9ca
comparison
equal deleted inserted replaced
238:b5f2e56b938d 239:41f2f0e326e9
123 (file-newer-than-file-p arg docfile)) 123 (file-newer-than-file-p arg docfile))
124 (setq docfile-out-of-date t)) 124 (setq docfile-out-of-date t))
125 (setq processed (cons arg processed))))) 125 (setq processed (cons arg processed)))))
126 (setq site-load-packages (cdr site-load-packages))))) 126 (setq site-load-packages (cdr site-load-packages)))))
127 127
128 (let ((autoloads (packages-list-autoloads-path))) 128 ;(let ((autoloads (packages-list-autoloads-path)))
129 ;; (print (concat "Autoloads: " (prin1-to-string autoloads))) 129 ; ;; (print (concat "Autoloads: " (prin1-to-string autoloads)))
130 (while autoloads 130 ; (while autoloads
131 (let ((arg (car autoloads))) 131 ; (let ((arg (car autoloads)))
132 (if (null (member arg processed)) 132 ; (if (null (member arg processed))
133 (progn 133 ; (progn
134 ;; (print arg) 134 ; ;; (print arg)
135 (if (and (null docfile-out-of-date) 135 ; (if (and (null docfile-out-of-date)
136 (file-newer-than-file-p arg docfile)) 136 ; (file-newer-than-file-p arg docfile))
137 (setq docfile-out-of-date t)) 137 ; (setq docfile-out-of-date t))
138 (setq processed (cons arg processed)))) 138 ; (setq processed (cons arg processed))))
139 (setq autoloads (cdr autoloads))))) 139 ; (setq autoloads (cdr autoloads)))))
140 140
141 ;; Now fire up make-docfile and we're done 141 ;; Now fire up make-docfile and we're done
142 142
143 (setq processed (nreverse processed)) 143 (setq processed (nreverse processed))
144 144