在 Emacs 中重载键绑定

Question

我浏览了许多其他问题和 el 文件，寻找可以修改以满足我的需求的内容，但我遇到了麻烦，所以我找到了专家。

无论如何，是否有一个按键根据光标在行中的位置而表现不同？

更具体地说，如果我位于行的中间，我想将制表符映射到行尾，但如果我的光标位于行的开头，则通常会像制表符一样工作。

到目前为止，我有大括号和引号自动配对，并在其中重新定位光标以用于 C++/Java 等。如果例如函数没有任何参数，我想使用 Tab 键到行尾。

Answer 1

根据点在线条中的位置而表现出不同的行为是很容易的（请参阅代码中的 (if (look-back "^") ...) ）。 “[工作]通常作为选项卡”是比较困难的一点，因为这是上下文相关的。

这是一种方法，但我后来想，一种更强大的方法是定义一个具有自己的 TAB 绑定的次要模式，并让该函数动态查找后备绑定。我不知道最后怎么做，但这里有一个解决方案：

Emacs 键绑定后备< /a>

(defvar my-major-mode-tab-function-alist nil)

(defmacro make-my-tab-function ()
  "Return a major mode-specific function suitable for binding to TAB.
Performs the original TAB behaviour when point is at the beginning of
a line, and moves point to the end of the line otherwise."
  ;; If we have already defined a custom function for this mode,
  ;; return that (otherwise that would be our fall-back function).
  (or (cdr (assq major-mode my-major-mode-tab-function-alist))
      ;; Otherwise find the current binding for this mode, and
      ;; specify it as the fall-back for our custom function.
      (let ((original-tab-function (key-binding (kbd "TAB") t)))
        `(let ((new-tab-function
                (lambda ()
                  (interactive)
                  (if (looking-back "^") ;; point is at bol
                      (,original-tab-function)
                    (move-end-of-line nil)))))
           (add-to-list 'my-major-mode-tab-function-alist
                        (cons ',major-mode new-tab-function))
           new-tab-function))))

(add-hook
 'java-mode-hook
 (lambda () (local-set-key (kbd "TAB") (make-my-tab-function)))
 t) ;; Append, so that we run after the other hooks.

Answer 2

Emacs Wiki 的此页面列出了几个使 TAB 根据不同的情况执行不同操作的软件包（smarttab 等）就上下文而言。您也许可以修改其中之一来执行您想要的操作。