Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 227:0e522484dd2a r20-5b12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 2c611d1463a6
children 434959a2fba3
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
89 (setq autoload-file-name "auto-autoloads.elc") 89 (setq autoload-file-name "auto-autoloads.elc")
90 (setq source-directory (concat default-directory "../lisp")) 90 (setq source-directory (concat default-directory "../lisp"))
91 ;; (print (concat "Source directory: " source-directory)) 91 ;; (print (concat "Source directory: " source-directory))
92 (require 'packages) 92 (require 'packages)
93 93
94 ;; We must have some lisp support at this point
95 (packages-find-packages package-path t t)
96
97 (let (preloaded-file-list) 94 (let (preloaded-file-list)
98 (load (concat default-directory "../lisp/dumped-lisp.el")) 95 (load (concat default-directory "../lisp/dumped-lisp.el"))
99 (setq preloaded-file-list 96 ;; Add package lisp directories to load-path (for autoloads)
100 (append preloaded-file-list packages-hardcoded-lisp)) 97 ;; Add files dumped from lisp packages
101 (while preloaded-file-list 98 (packages-find-packages package-path t t)
102 (let ((arg0 (packages-add-suffix (car preloaded-file-list))) 99 (setq preloaded-file-list
103 arg) 100 (append preloaded-file-list packages-hardcoded-lisp))
104 (setq arg (locate-library arg0)) 101 (while preloaded-file-list
105 (if (null arg) 102 (let ((arg0 (packages-add-suffix (car preloaded-file-list)))
106 (princ (format "Error: dumped file %s does not exist\n" arg0)) 103 arg)
107 (if (null (member arg processed)) 104 (setq arg (locate-library arg0))
108 (progn 105 (if (null arg)
109 (if (and (null docfile-out-of-date) 106 (princ (format "Error: dumped file %s does not exist\n" arg0))
110 (file-newer-than-file-p arg docfile)) 107 (if (null (member arg processed))
111 (setq docfile-out-of-date t)) 108 (progn
112 (setq processed (cons arg processed))))) 109 (if (and (null docfile-out-of-date)
113 (setq preloaded-file-list (cdr preloaded-file-list))))) 110 (file-newer-than-file-p arg docfile))
111 (setq docfile-out-of-date t))
112 (setq processed (cons arg processed)))))
113 (setq preloaded-file-list (cdr preloaded-file-list)))))
114 114
115 ;; Finally process the list of site-loaded files. 115 ;; Finally process the list of site-loaded files.
116 (if site-file-list 116 (if site-file-list
117 (let (site-load-packages) 117 (let (site-load-packages)
118 (load site-file-list t t) 118 (load site-file-list t t)