(defun astyle-this-buffer ()
  (interactive)
  (save-excursion
    (shell-command-on-region (point-min) (point-max)
                             "astyle"
                             (current-buffer) t
                             (get-buffer-create "*Astyle Errors*") t)))