* 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 (file)
--- 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 (file)
--- 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 ()