fix fresh bugs

auto-compile.el

@@ -438,8 +438,8 @@ pretend the byte code file exists.")
            (auto-compile-handle-compile-error file buf)
            (throw 'auto-compile nil))))
       (when (or start
-                (setq dest (byte-compile-dest-file file))
-                (file-exists-p dest)
+                (and (setq dest (byte-compile-dest-file file))
+                     (file-exists-p dest))
                 (when buf
                   (with-current-buffer buf
                     auto-compile-pretend-byte-compiled)))
@@ -463,17 +463,17 @@ pretend the byte code file exists.")
                   (autoload-generate-file-autoloads file)))
             (error
              (message "Generating loaddefs for %s failed" file)
-             (setq loaddefs nil)))))
-      (cl-case success
-        (no-byte-compile)
-        ((t) (message "Wrote %s.{%s,%s}%s"
-                      (file-name-sans-extension
-                       (file-name-sans-extension file))
-                      (progn (string-match "\\(\\.[^./]+\\)+$" file)
-                             (substring (match-string 0 file) 1))
-                      (file-name-extension dest)
-                      (if loaddefs " (+)" "")))
-        (t   (message "Wrote %s (byte-compiling failed)" file)))
+             (setq loaddefs nil))))
+        (cl-case success
+          (no-byte-compile)
+          ((t) (message "Wrote %s.{%s,%s}%s"
+                        (file-name-sans-extension
+                         (file-name-sans-extension file))
+                        (progn (string-match "\\(\\.[^./]+\\)+$" file)
+                               (substring (match-string 0 file) 1))
+                        (file-name-extension dest)
+                        (if loaddefs " (+)" "")))
+          (t   (message "Wrote %s (byte-compiling failed)" file))))
       success)))
 
 (defun auto-compile-delete-dest (dest &optional failurep)