emacs - emacs（邪恶）绑定以移动选定的行，插入空格

Question

我想要一个 emacs 绑定（在邪恶模式下）来进行选择并将其一次移动到一个空间的右侧或左侧。例如，突出显示五行，点击 [some-key]，所有五行都向右滑动一个空格，然后点击 [shift some-key]，所有行向左滑动一个空格。

Answer 1

这可能比我最初发布的方法更好。

(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)