Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/lisp/update-elc.el	Mon Aug 13 11:17:10 2007 +0200
+++ b/lisp/update-elc.el	Mon Aug 13 11:18:11 2007 +0200
@@ -115,14 +115,18 @@
 	     (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)))
+	    (when (and dumped-exe
+		       (or (and (file-exists-p
+				 (concat "../lisp/" frob ".el"))
+				(file-newer-than-file-p
+				 (concat "../lisp/" frob ".el")
+				 dumped-exe))
+			   (and (file-exists-p
+				 (concat "../lisp/" frob ".elc"))
+				(file-newer-than-file-p
+				 (concat "../lisp/" frob ".elc")
+				 dumped-exe))))
+	      (setq need-to-dump t)))
 
       (if (null (member (file-name-nondirectory arg)
 			packages-unbytecompiled-lisp))