init.el

(defun py-my-indent-region (&optional min max)
  "Stupidly clamp indentation to the closest multiple of 4 spaces."
  (interactive)
  (save-excursion
    (let ((top (or min (point-min)))
	  (bottom (or max (point-max)))
	  (line-move-visual nil))
      (goto-char top)
      (while (<= (point) bottom)
	(indent-line-to
	 (* 4 (round (/ (float (current-indentation)) 4))))
	(next-line) (end-of-line)))))