2012-03-27 65 views

回答

0

這可能是一個比我最初發布的更好的方法。

(defun jg-indent (start end count) 
    (interactive "r\np") 
    (save-excursion 
    (let ((start (if (use-region-p) 
        start 
        (beginning-of-line) 
        (point))) 
      (end (if (use-region-p) 
        end 
       (end-of-line) 
       (point)))) 
     (indent-rigidly start end count)))) 

(defun jg-unindent (start end) 
    (interactive "r") 
    (jg-indent start end -1)) 

(global-set-key "\C-c=" 'jg-indent) 
(global-set-key "\C-c+" 'jg-unindent) 
+0

我只是偶然發現了一個縮進,這可能是一個更好的選擇。我必須與C-x C-i綁定。 – 2012-03-28 16:43:53

+0

埃裏克,接近了,但第一次擊中後我失去了我的區域。我希望能夠多次點擊,比如綁定ctrl- =向右走,向左走ctrl- +(ctrl shift =),並且如果沒有區域,則應該使用當前行。 – justingordon 2012-03-29 03:52:41

+0

我上面發佈了一個更好的方法。我無法將其綁定到您想要的鍵。這兩個鍵有些麻煩。抱歉! – 2012-03-29 14:53:04