Mercurial > hg > xemacs-beta

comparison lisp/make-docfile.el @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents b2472a1930f2
children 558f606b08ae
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
106 (while preloaded-file-list 106 (while preloaded-file-list
107 (let ((arg0 (packages-add-suffix (car preloaded-file-list))) 107 (let ((arg0 (packages-add-suffix (car preloaded-file-list)))
108 arg) 108 arg)
109 (setq arg (locate-library arg0)) 109 (setq arg (locate-library arg0))
110 (if (null arg) 110 (if (null arg)
111 (progn
111 (princ (format "Error: dumped file %s does not exist\n" arg0)) 112 (princ (format "Error: dumped file %s does not exist\n" arg0))
113 ;; Uncomment in case of difficulties
114 ;;(print (format "late-packages: %S" late-packages))
115 ;;(print (format "guessed-roots: %S" (paths-find-emacs-roots invocation-directory invocation-name)))
116 )
112 (if (null (member arg processed)) 117 (if (null (member arg processed))
113 (progn 118 (progn
114 (if (and (null docfile-out-of-date) 119 (if (and (null docfile-out-of-date)
115 (file-newer-than-file-p arg docfile)) 120 (file-newer-than-file-p arg docfile))
116 (setq docfile-out-of-date t)) 121 (setq docfile-out-of-date t))