-
- ;; now check if .el or .elc is newer than the dumped exe.
- ;; if so, need to redump.
- (let ((frob
- (if (string-match "\\.elc?\\'" arg)
- (substring arg 0 (match-beginning 0))
- arg)))
- (if (and dumped-exe
- (or (and (file-exists-p (concat frob ".el"))
- (file-newer-than-file-p (concat frob ".el")
- dumped-exe))
- (and (file-exists-p (concat frob ".elc"))
- (file-newer-than-file-p (concat frob ".elc")
- dumped-exe))))
- (setq need-to-dump t)))
-