* emacs-lisp/bytecomp.el (byte-compile-file): Fix indentation.

2 files changed, 35 insertions, 31 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 401f1f4f540..c7696651c67 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-12-31  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* emacs-lisp/bytecomp.el (byte-compile-file): Fix indentation.
+
 2011-12-31  Eli Zaretskii  <eliz@gnu.org>
 
 	* mail/rmail.el (rmail-show-message-1): Decode any RFC2047 encoded
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 8c63428cdf1..4fc4fdb9e02 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1779,37 +1779,37 @@ The value is non-nil if there were no errors, nil if errors."
 	(with-current-buffer output-buffer
 	  (goto-char (point-max))
 	  (insert "\n")			; aaah, unix.
-	    (if (file-writable-p target-file)
-		;; We must disable any code conversion here.
-		(let* ((coding-system-for-write 'no-conversion)
-		       ;; Write to a tempfile so that if another Emacs
-		       ;; process is trying to load target-file (eg in a
-		       ;; parallel bootstrap), it does not risk getting a
-		       ;; half-finished file.  (Bug#4196)
-		       (tempfile (make-temp-name target-file))
-		       (kill-emacs-hook
-			(cons (lambda () (ignore-errors (delete-file tempfile)))
-			      kill-emacs-hook)))
-		  (if (memq system-type '(ms-dos 'windows-nt))
-		      (setq buffer-file-type t))
-		  (write-region (point-min) (point-max) tempfile nil 1)
-		  ;; This has the intentional side effect that any
-		  ;; hard-links to target-file continue to
-		  ;; point to the old file (this makes it possible
-		  ;; for installed files to share disk space with
-		  ;; the build tree, without causing problems when
-		  ;; emacs-lisp files in the build tree are
-		  ;; recompiled).  Previously this was accomplished by
-		  ;; deleting target-file before writing it.
-		  (rename-file tempfile target-file t)
-		  (message "Wrote %s" target-file))
-	      ;; This is just to give a better error message than write-region
-	      (signal 'file-error
-		      (list "Opening output file"
-			    (if (file-exists-p target-file)
-				"cannot overwrite file"
-			      "directory not writable or nonexistent")
-			    target-file)))
+	  (if (file-writable-p target-file)
+	      ;; We must disable any code conversion here.
+	      (let* ((coding-system-for-write 'no-conversion)
+		     ;; Write to a tempfile so that if another Emacs
+		     ;; process is trying to load target-file (eg in a
+		     ;; parallel bootstrap), it does not risk getting a
+		     ;; half-finished file.  (Bug#4196)
+		     (tempfile (make-temp-name target-file))
+		     (kill-emacs-hook
+		      (cons (lambda () (ignore-errors (delete-file tempfile)))
+			    kill-emacs-hook)))
+		(if (memq system-type '(ms-dos 'windows-nt))
+		    (setq buffer-file-type t))
+		(write-region (point-min) (point-max) tempfile nil 1)
+		;; This has the intentional side effect that any
+		;; hard-links to target-file continue to
+		;; point to the old file (this makes it possible
+		;; for installed files to share disk space with
+		;; the build tree, without causing problems when
+		;; emacs-lisp files in the build tree are
+		;; recompiled).  Previously this was accomplished by
+		;; deleting target-file before writing it.
+		(rename-file tempfile target-file t)
+		(message "Wrote %s" target-file))
+	    ;; This is just to give a better error message than write-region
+	    (signal 'file-error
+		    (list "Opening output file"
+			  (if (file-exists-p target-file)
+			      "cannot overwrite file"
+			    "directory not writable or nonexistent")
+			  target-file)))
 	  (kill-buffer (current-buffer)))
 	(if (and byte-compile-generate-call-tree
 		 (or (eq t byte-compile-generate-call-tree)