     (setq end (point-marker))
     (goto-char start)
     (let (this-line-column current-column
-          (next-line-column
-           (if (and (equal last-command this-command) (/= (current-indentation) 0))
-               (* (/ (- (current-indentation) 1) haml-indent-offset) haml-indent-offset)
-             (haml-compute-indentation))))
+                           (next-line-column
+                            (if (and (equal last-command this-command) (/= (current-indentation) 0))
+                                (* (/ (- (current-indentation) 1) haml-indent-offset) haml-indent-offset)
+                              (haml-compute-indentation))))
       (while (< (point) end)
         (setq this-line-column next-line-column
               current-column (current-indentation))

          (bolp)
          (looking-at "^[ \t]+$"))
      (backward-delete-char arg)
    (save-excursion
      (let ((ci (current-column)))
        (beginning-of-line)
        (if haml-backspace-backdents-nesting
            (haml-mark-sexp-but-not-next-line)
          (set-mark (save-excursion (end-of-line) (point))))
        (haml-reindent-region-by (* (- arg) haml-indent-offset))
        (back-to-indentation)
        (pop-mark)))))

(defun haml-kill-line-and-indent ()
  "Kill the current line, and re-indent all lines nested beneath it."

      (setq arg (- arg 1))))
  (back-to-indentation))

(defun haml-mark-sexp-but-not-next-line ()
  "Marks the next Haml sexp, but puts the mark at the end of the
last line of the sexp rather than the first non-whitespace
character of the next line."
  (mark-sexp)
  (set-mark
   (save-excursion
     (goto-char (mark))
