From b6483438fdb656c25a5a08ebbc80f78511eda3e2 Mon Sep 17 00:00:00 2001 From: "Tom Breton (Tehom)" Date: Thu, 23 Dec 2010 22:26:21 -0500 Subject: [PATCH] Changed the logic of whether to byte-compile. Deprecated force-recompile, use byte-compile 'always --- elinstall.el | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) diff --git a/elinstall.el b/elinstall.el index 1bae28e..874bb25 100644 --- a/elinstall.el +++ b/elinstall.el @@ -966,17 +966,21 @@ Special variables are as noted in \"List of special variables\"." (with-current-buffer buf (not no-byte-compile))) (let* - ((dest (byte-compile-dest-file full-path))) - (cond - ((file-exists-p dest) - (or force-recompile - (file-newer-than-file-p full-path dest))) - ((memq byte-compile '(t update)) - t) - ((eq byte-compile 'ask) + ((dest (byte-compile-dest-file full-path)) + (yes-1 + (cond + ((file-exists-p dest) + (or (eq byte-compile 'always) + (file-newer-than-file-p full-path dest))) + ((memq byte-compile '(t update ask)) + t)))) + (if (eq byte-compile 'ask) + (and + yes-1 (y-or-n-p - (concat "Compile " filename "? ")))))))) - + (concat "Compile " filename "? "))) + yes-1))))) + (prog1 (list (if do-compile-p -- 2.11.4.GIT