Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
98 ;(load "version.el") 98 ;(load "version.el")
99 ;(load "cl") 99 ;(load "cl")
100 100
101 ;; (load "featurep") 101 ;; (load "featurep")
102 102
103 (let (dumped-lisp-packages) 103 (let (preloaded-file-list)
104 (load (concat default-directory "../lisp/prim/dumped-lisp.el")) 104 (load (concat default-directory "../lisp/prim/dumped-lisp.el"))
105 (setq dumped-lisp-packages 105 (setq preloaded-file-list
106 (append dumped-lisp-packages packages-hardcoded-lisp)) 106 (append preloaded-file-list packages-hardcoded-lisp))
107 (while dumped-lisp-packages 107 (while preloaded-file-list
108 (let ((arg0 (packages-add-suffix (car dumped-lisp-packages))) 108 (let ((arg0 (packages-add-suffix (car preloaded-file-list)))
109 arg) 109 arg)
110 (setq arg (locate-library arg0)) 110 (setq arg (locate-library arg0))
111 (if (null arg) 111 (if (null arg)
112 (princ (format "Error: dumped file %s does not exist\n" arg)) 112 (princ (format "Error: dumped file %s does not exist\n" arg))
113 (if (null (member arg processed)) 113 (if (null (member arg processed))
114 (progn 114 (progn
115 (if (and (null docfile-out-of-date) 115 (if (and (null docfile-out-of-date)
116 (file-newer-than-file-p arg docfile)) 116 (file-newer-than-file-p arg docfile))
117 (setq docfile-out-of-date t)) 117 (setq docfile-out-of-date t))
118 (setq processed (cons arg processed))))) 118 (setq processed (cons arg processed)))))
119 (setq dumped-lisp-packages (cdr dumped-lisp-packages))))) 119 (setq preloaded-file-list (cdr preloaded-file-list)))))
120 120
121 ;; Finally process the list of site-loaded files. 121 ;; Finally process the list of site-loaded files.
122 (if site-file-list 122 (if site-file-list
123 (let (site-load-packages) 123 (let (site-load-packages)
124 (load site-file-list t t) 124 (load site-file-list t t)