Использование Emacs для отступа (сдвиг 4) кода

Я редактирую свои ответы и вопросы StackOverflow с помощью ViewSourceWith и Emacs. Часто я включаю код и правила форматирования StackOverflow говорят, что он должен иметь отступ в четыре пробела, чтобы его можно было распознать. Делать это вручную или даже с помощью макросов болезненно.

Я искал в предыдущих сообщениях SO, но ничего не нашел.

Начиная с режима Python, я написал:

(defun text-shift-region (start end count)
  "Indent lines from START to END by COUNT spaces."
  (save-excursion
(goto-char end)
(beginning-of-line)
(setq end (point))
(goto-char start)
(beginning-of-line)
(setq start (point))
(indent-rigidly start end count)))

(defun text-shift-region-right (start end &optional count)
  "Shift region of code to the right
   Stolen from python-mode.
   The lines from the line containing the start of the current region up
   to (but not including) the line containing the end of the region are
   shifted to the right, by `text-indent-offset' columns.

   If a prefix argument is given, the region is instead shifted by that
   many columns.  With no active region, indent only the current line."
  (interactive
   (let ((p (point))
     (m (mark))
     (arg current-prefix-arg))
 (if m
     (list (min p m) (max p m) arg)
   (list p (save-excursion (forward-line 1) (point)) arg))))
  (text-shift-region start end (prefix-numeric-value
              (or count text-indent-offset)))
  )

;; Code in StackOverflow must be marked by four spaces at the
;; beginning of the line
(setq text-indent-offset 4)
(global-set-key "\C-c>" 'text-shift-region-right)

Кажется, это работает, но я приветствую советы, альтернативы, сообщения об ошибках и т. Д.