From: bg66 <bg66>
Date: Tue, 30 Apr 2002 13:32:08 +0000 (+0000)
Subject: * lisp/initz-list.el (initz-list-byte-compile-file): Byte-Compile
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ed2864b600a7e38a39ad54f70b80f9e9a17bc5e;p=elisp%2Finitz.git

* lisp/initz-list.el (initz-list-byte-compile-file): Byte-Compile
file, only when `file' is newer than `compile-file'.
(initz-list-load-file): Load file, only when the return value of
`initz-list-byte-compile-file' is non-nil.
---

diff --git a/ChangeLog b/ChangeLog
index 1a4493a..3b9ab76 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2002-04-30  OHASHI Akira  <bg66@koka-in.org>
 
+	* lisp/initz-list.el (initz-list-byte-compile-file): Byte-Compile
+	file, only when `file' is newer than `compile-file'.
+	(initz-list-load-file): Load file, only when the return value of
+	`initz-list-byte-compile-file' is non-nil.
+
 	* lisp/initz.el (initz-init-alist): Use `#'' instead of `function'.
 	(initz-get-init-value): Ditto.
 	(initz-get-kind): Ditto.
@@ -12,19 +17,19 @@
 	(initz-compile): Ditto.
 	(initz-load-files): Ditto.
 	(initz-load): Ditto.
-	* lisp/initz-list.el (sort-build-lists): Ditto.        
-	(initz-list-input-dir): Ditto.                         
-	(initz-list-input-module): Ditto.                      
-	(initz-list-node-expand): Ditto.                       
-	(initz-list): Ditto.                                   
+	* lisp/initz-list.el (sort-build-lists): Ditto.
+	(initz-list-input-dir): Ditto.
+	(initz-list-input-module): Ditto.
+	(initz-list-node-expand): Ditto.
+	(initz-list): Ditto.
 	* lisp/initz-error.el (initz-error-node-expand): Ditto.
-	(initz-error): Ditto.                                  
-	* lisp/initz-util.el (initz-add-to-load-list): Ditto.  
-	(initz-add-to-ignore-list): Ditto.                     
-	(initz-remove-from-load-list): Ditto.                  
-	(initz-remove-from-ignore-list): Ditto.                
-	(initz-add-to-load-path): Ditto.                       
-	(initz-features): Ditto.                               
+	(initz-error): Ditto.
+	* lisp/initz-util.el (initz-add-to-load-list): Ditto.
+	(initz-add-to-ignore-list): Ditto.
+	(initz-remove-from-load-list): Ditto.
+	(initz-remove-from-ignore-list): Ditto.
+	(initz-add-to-load-path): Ditto.
+	(initz-features): Ditto.
 
 	* lisp/initz.el (initz-init-alist): Use `mapconcat' instead of `mapc'.
 
diff --git a/lisp/initz-list.el b/lisp/initz-list.el
index cdfc0c7..da2652e 100644
--- a/lisp/initz-list.el
+++ b/lisp/initz-list.el
@@ -321,17 +321,18 @@
   (interactive)
   (let ((file (get-text-property (point) :file)))
     (when file
-      (condition-case nil
-	  (when (save-window-excursion
-		  (byte-compile-file file))
-	    (let* ((compile-file (initz-get-correspondence-file file))
-		   (startup-directory (file-name-directory file))
-		   (flavor-directory (file-name-directory compile-file)))
-	      (install-file (file-name-nondirectory compile-file)
-			    startup-directory flavor-directory t t))
-	    (setq initz-compile-error-files
-		  (delete file initz-compile-error-files)))
-	(error)))))
+      (let ((compile-file (initz-get-correspondence-file file)))
+	(when (file-newer-than-file-p file compile-file)
+	  (condition-case nil
+	      (when (save-window-excursion
+		      (byte-compile-file file))
+		(let ((startup-directory (file-name-directory file))
+		      (flavor-directory (file-name-directory compile-file)))
+		  (install-file (file-name-nondirectory compile-file)
+				startup-directory flavor-directory t t))
+		(setq initz-compile-error-files
+		      (delete file initz-compile-error-files)))
+	    (error)))))))
 
 (defun initz-list-delete-file ()
   "Delete the file under point."
@@ -354,10 +355,10 @@
   "Load the file under point."
   (interactive)
   (let* ((file (get-text-property (point) :file)))
-    (initz-list-byte-compile-file)
-    (when (initz-load-file (initz-get-correspondence-file file))
-      (setq initz-load-error-files
-	    (delete file initz-load-error-files)))))
+      (when (and (initz-list-byte-compile-file)
+		 (initz-load-file (initz-get-correspondence-file file)))
+	(setq initz-load-error-files
+	      (delete file initz-load-error-files)))))
 
 ;;;###autoload
 (defun initz-list-new-file ()