Mercurial > hg > xemacs-beta

diff lisp/prim/make-docfile.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents b405438285a2
children f53b5ca2e663
line wrap: on
line diff
--- a/lisp/prim/make-docfile.el	Mon Aug 13 09:56:30 2007 +0200
+++ b/lisp/prim/make-docfile.el	Mon Aug 13 09:57:07 2007 +0200
@@ -100,12 +100,12 @@
 
 ;; (load "featurep")
 
-(let (dumped-lisp-packages)
+(let (preloaded-file-list)
  (load (concat default-directory "../lisp/prim/dumped-lisp.el"))
- (setq dumped-lisp-packages
-       (append dumped-lisp-packages packages-hardcoded-lisp))
- (while dumped-lisp-packages
-   (let ((arg0 (packages-add-suffix (car dumped-lisp-packages)))
+ (setq preloaded-file-list
+       (append preloaded-file-list packages-hardcoded-lisp))
+ (while preloaded-file-list
+   (let ((arg0 (packages-add-suffix (car preloaded-file-list)))
 	 arg)
      (setq arg (locate-library arg0))
      (if (null arg)
@@ -116,7 +116,7 @@
 		      (file-newer-than-file-p arg docfile))
 		 (setq docfile-out-of-date t))
 	     (setq processed (cons arg processed)))))
-     (setq dumped-lisp-packages (cdr dumped-lisp-packages)))))
+     (setq preloaded-file-list (cdr preloaded-file-list)))))
 
 ;; Finally process the list of site-loaded files.
 (if site-file-list