如何在Emacs中将一个函数重新映射到另一个函数？

Question

在coffee-mode中，RET被绑定到coffee-newline-and-indent，它工作得很好。

我还使用evil-mode进行Vim仿真。evil-mode使用标准的newline-and-indent，因此缩进对于某些vim命令是不正确的，比如o或O。

将newline-and-indent重新绑定到coffee-newline-and-indent的最佳方式是什么？

我仍然是ELisp的新手，尝试了下面的代码，但它不起作用。

(add-hook 'coffee-mode-hook
          (lambda () 
            (setq newline-and-indent '(funcall coffee-newline-and-indent))))

Answer 1

这是我的尝试。它应该可以工作，但我真的不喜欢它。

(add-hook
 'coffee-mode-hook 
 (lambda ()
   (defalias 
       'newline-and-indent 
       (lambda()
         (interactive)
         (if (eq major-mode 'coffee-mode)
             (coffee-newline-and-indent)
           (delete-horizontal-space t)
           (newline)
           (indent-according-to-mode))))))

我希望我可以使用更优雅的东西，而不仅仅是复制newline-and-indent的源代码，但是make-variable-buffer-local在这种情况下不起作用，而且我也无法获得symbol-function的深层副本。我很乐意看到一个更好的方法。

Answer 2

完成你想要的东西的标准方法是

(autoload 'coffee-newline-and-indent "coffee-mode") ; (or whatever)
(define-key evil-mode-map (kbd "RET") 'coffee-newline-and-indent)

编辑:仅在coffee-mode中启用coffee-newline-and-indent

(define-key evil-mode-map (kbd "RET")
  (lambda ()
    (interactive)
    (if (eq major-mode 'coffee-mode)
        (coffee-newline-and-indent)
      (newline-and-indent))))

Answer 3

尝试以下操作：

(define-key evil-mode-map (kbd "RET") nil)

我知道它看起来过于简单，但如果邪恶模式像我认为的那样工作，那么它应该是有效的。

1. 这将从你的邪恶模式映射中擦除ret密钥，这将让咖啡模式映射的绑定变得闪闪发光。
2. 在非咖啡缓冲区中，ret键仍然有效，因为它仍然绑定在全局映射中。