Fixed reversed logic in byte-compile's call to elinstall-proceed-p
authorTom Breton (Tehom) <tehom@panix.com>
Fri, 24 Dec 2010 21:20:26 +0000 (24 16:20 -0500)
committerTom Breton (Tehom) <tehom@panix.com>
Fri, 24 Dec 2010 21:20:26 +0000 (24 16:20 -0500)
elinstall.el

index 299b5c4..ba9f75a 100644 (file)
@@ -224,7 +224,7 @@ PACKAGE can be `t' or a string naming a package."
                  elinstall:*pkg-restraints*
                  elinstall:*user-restraints*))
       (apply func args)))
-;;;_   , elinstall-proceed-p 
+;;;_   , elinstall-proceed-p
 (defun elinstall-proceed-p 
    (topic message-params &optional already-p)
    "Return non-nil if actions on TOPIC should proceed.
@@ -238,7 +238,7 @@ MESSAGE-PARAMS is a cons of:
  * The arguments to the formatter.
 ALREADY-P is an extended boolean whether the task has been done
    before, if caller can tell."
-   
+   ;;$$FACTOR ME
    (check-type topic symbol)
    (declare (special 
               elinstall:*pkg-restraints*
@@ -286,6 +286,8 @@ ALREADY-P is an extended boolean whether the task has been done
            (ask
               (y-or-n-p 
                  (apply #'format ask-prompt message-args)))))))
+;;;_   , elinstall-proceed-at-all-p
+;;$$WRITE ME Whether to proceed at all on a given topic.
 
 ;;;_ , Work
 ;;;_  . Doing actions
@@ -796,7 +798,7 @@ PRIORITY must be an integer or nil."
         ;;$$IMPROVE ME If it is a symlink pointing to the same place,
         ;;do nothing.
 
-        ;;$$IMPROVE ME The condition here is not updating but
+        ;;$$IMPROVE ME The condition here is really not updating but
         ;;bulldozing a possibly different symlink.  Add another
         ;;treatment symbol meaning to bulldoze what's in the way.
         ((elinstall-proceed-p 'preloads-compile 
@@ -1102,11 +1104,10 @@ Special variables are as noted in \"List of special variables\"."
                               "Recompile %s? "
                               "Already compiled %s.")
                           filename)
-                       (let
-                          ((dest (byte-compile-dest-file full-path)))
-                          (and 
-                             (file-exists-p dest) 
-                             (file-newer-than-file-p full-path dest)))))))
+                       (not
+                          (file-newer-than-file-p 
+                             full-path 
+                             (byte-compile-dest-file full-path)))))))
            
            (prog1
               (list