Mercurial > hg > xemacs-beta

comparison lisp/update-elc.el @ 408:501cfd01ee6d r21-2-34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-34
author cvs
date Mon, 13 Aug 2007 11:18:11 +0200
parents b8cc9ab3f761
children 697ef44129c6
comparison
equal deleted inserted replaced
407:ed6218a7d4d3 408:501cfd01ee6d
113 ;; if so, need to redump. 113 ;; if so, need to redump.
114 (let ((frob 114 (let ((frob
115 (if (string-match "\\.elc?\\'" arg) 115 (if (string-match "\\.elc?\\'" arg)
116 (substring arg 0 (match-beginning 0)) 116 (substring arg 0 (match-beginning 0))
117 arg))) 117 arg)))
118 (if (and dumped-exe 118 (when (and dumped-exe
119 (or (and (file-exists-p (concat frob ".el")) 119 (or (and (file-exists-p
120 (file-newer-than-file-p (concat frob ".el") 120 (concat "../lisp/" frob ".el"))
121 dumped-exe)) 121 (file-newer-than-file-p
122 (and (file-exists-p (concat frob ".elc")) 122 (concat "../lisp/" frob ".el")
123 (file-newer-than-file-p (concat frob ".elc") 123 dumped-exe))
124 dumped-exe)))) 124 (and (file-exists-p
125 (setq need-to-dump t))) 125 (concat "../lisp/" frob ".elc"))
126 (file-newer-than-file-p
127 (concat "../lisp/" frob ".elc")
128 dumped-exe))))
129 (setq need-to-dump t)))
126 130
127 (if (null (member (file-name-nondirectory arg) 131 (if (null (member (file-name-nondirectory arg)
128 packages-unbytecompiled-lisp)) 132 packages-unbytecompiled-lisp))
129 (progn 133 (progn
130 (setq arg (locate-library arg)) 134 (setq arg (locate-library arg))