Mercurial > hg > xemacs-beta

comparison lisp/prim/make-docfile.el @ 175:2d532a89d707 r20-3b14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b14
author cvs
date Mon, 13 Aug 2007 09:50:14 +0200
parents 85ec50267440
children 6075d714658b
comparison
equal deleted inserted replaced
174:bb3568571b84 175:2d532a89d707
101 (let (dumped-lisp-packages) 101 (let (dumped-lisp-packages)
102 (load (concat default-directory "../lisp/prim/dumped-lisp.el")) 102 (load (concat default-directory "../lisp/prim/dumped-lisp.el"))
103 (setq dumped-lisp-packages 103 (setq dumped-lisp-packages
104 (append dumped-lisp-packages packages-hardcoded-lisp)) 104 (append dumped-lisp-packages packages-hardcoded-lisp))
105 (while dumped-lisp-packages 105 (while dumped-lisp-packages
106 (let ((arg (packages-add-suffix (car dumped-lisp-packages)))) 106 (let ((arg0 (packages-add-suffix (car dumped-lisp-packages)))
107 (setq arg (locate-library arg)) 107 arg)
108 (if (null (member arg processed)) 108 (setq arg (locate-library arg0))
109 (progn 109 (if (null arg)
110 (if (and (null docfile-out-of-date) 110 (princ (format "Error: dumped file %s does not exist\n" arg))
111 (file-newer-than-file-p arg docfile)) 111 (if (null (member arg processed))
112 (setq docfile-out-of-date t)) 112 (progn
113 (setq processed (cons arg processed)))) 113 (if (and (null docfile-out-of-date)
114 (file-newer-than-file-p arg docfile))
115 (setq docfile-out-of-date t))
116 (setq processed (cons arg processed)))))
114 (setq dumped-lisp-packages (cdr dumped-lisp-packages))))) 117 (setq dumped-lisp-packages (cdr dumped-lisp-packages)))))
115 118
116 ;; Finally process the list of site-loaded files. 119 ;; Finally process the list of site-loaded files.
117 (if site-file-list 120 (if site-file-list
118 (let (site-load-packages) 121 (let (site-load-packages)