使用Emacs縮進（移位4）代碼

我編輯我的StackOverflow答案和ViewSourceWith 和Emacs的問題。通常，我包含代碼和StackOverflow formatting rules 說它必須縮進四個空格才能被識別爲等。用手或者用宏來做是很痛苦的。使用Emacs縮進（移位4）代碼

我在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)

這似乎工作，但我歡迎建議，方案，錯誤報告，等

來源

2009-02-27 bortzmeyer

這不是一個問題...... – 2009-02-27 09:59:34

這是，我希望能夠替代我的快速烹製的解決方案，或者接收有趣的補丁。 – bortzmeyer 2009-02-27 10:01:32

此外，它似乎可以幫助一些人，所以我使用這種方式來查看是否有足夠的興趣去尋求文檔。 – bortzmeyer 2009-02-27 10:03:11