2012-03-27 73 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