Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 235:85a06df23a9a r20-5b16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b16
author cvs
date Mon, 13 Aug 2007 10:14:40 +0200
parents 434959a2fba3
children 89ec2bb86eea
comparison
equal deleted inserted replaced
234:946e7f6ce379 235:85a06df23a9a
1 ;;; make-docfile.el --- Cache docstrings in external file 1 ;;; make-docfile.el --- Cache docstrings in external file
2
3 2
4 ;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1992-1995, 1997 Free Software Foundation, Inc.
5 4
6 ;; Author: Unknown 5 ;; Author: Unknown
7 ;; Maintainer: Steven L Baur <steve@altair.xemacs.org> 6 ;; Maintainer: Steven L Baur <steve@altair.xemacs.org>
124 (file-newer-than-file-p arg docfile)) 123 (file-newer-than-file-p arg docfile))
125 (setq docfile-out-of-date t)) 124 (setq docfile-out-of-date t))
126 (setq processed (cons arg processed))))) 125 (setq processed (cons arg processed)))))
127 (setq site-load-packages (cdr site-load-packages))))) 126 (setq site-load-packages (cdr site-load-packages)))))
128 127
129 (let ((autoloads (list-autoloads-path))) 128 (let ((autoloads (packages-list-autoloads-path)))
130 ;; (print (concat "Autoloads: " (prin1-to-string autoloads))) 129 ;; (print (concat "Autoloads: " (prin1-to-string autoloads)))
131 (while autoloads 130 (while autoloads
132 (let ((arg (car autoloads))) 131 (let ((arg (car autoloads)))
133 (if (null (member arg processed)) 132 (if (null (member arg processed))
134 (progn 133 (progn