From 2ed2864b600a7e38a39ad54f70b80f9e9a17bc5e Mon Sep 17 00:00:00 2001 From: bg66 Date: Tue, 30 Apr 2002 13:32:08 +0000 Subject: [PATCH] * 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. --- ChangeLog | 29 +++++++++++++++++------------ lisp/initz-list.el | 31 ++++++++++++++++--------------- 2 files changed, 33 insertions(+), 27 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1a4493a..3b9ab76 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,10 @@ 2002-04-30 OHASHI Akira + * 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 () -- 1.7.10.4