我想要一个emacs绑定(在邪恶模式下)进行选择并一次将其移动到一个空间,向右或向左移动。例如,突出显示五行,点击[some-key],所有五行向右滑动一个空格,然后点击[shift some-key],所有行向左滑动一个空格。
答案 0 :(得分: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)