Mercurial > hg > xemacs-beta
diff lisp/make-docfile.el @ 239:41f2f0e326e9 r20-5b18
Import from CVS: tag r20-5b18
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:15:48 +0200 |
parents | 89ec2bb86eea |
children | 8efd647ea9ca |
line wrap: on
line diff
--- a/lisp/make-docfile.el Mon Aug 13 10:15:04 2007 +0200 +++ b/lisp/make-docfile.el Mon Aug 13 10:15:48 2007 +0200 @@ -125,18 +125,18 @@ (setq processed (cons arg processed))))) (setq site-load-packages (cdr site-load-packages))))) -(let ((autoloads (packages-list-autoloads-path))) - ;; (print (concat "Autoloads: " (prin1-to-string autoloads))) - (while autoloads - (let ((arg (car autoloads))) - (if (null (member arg processed)) - (progn - ;; (print arg) - (if (and (null docfile-out-of-date) - (file-newer-than-file-p arg docfile)) - (setq docfile-out-of-date t)) - (setq processed (cons arg processed)))) - (setq autoloads (cdr autoloads))))) +;(let ((autoloads (packages-list-autoloads-path))) +; ;; (print (concat "Autoloads: " (prin1-to-string autoloads))) +; (while autoloads +; (let ((arg (car autoloads))) +; (if (null (member arg processed)) +; (progn +; ;; (print arg) +; (if (and (null docfile-out-of-date) +; (file-newer-than-file-p arg docfile)) +; (setq docfile-out-of-date t)) +; (setq processed (cons arg processed)))) +; (setq autoloads (cdr autoloads))))) ;; Now fire up make-docfile and we're done