emacs cider清除REPL缓冲区

Question

我只想清除repl缓冲区，以便在第一行留下单个提示，例如（user>）。

我有一个键绑定：

(put 'erase-buffer 'disabled nil)
(global-set-key (kbd "C-x C-<backspace>") 'erase-buffer)

但是这给出了信息：

  

文字是只读的

有选项C-c C-o，但这只会清除最后一个返回值。

使用python时，run-python以下命令C-x M-o我认为是comint-clear-buffer

Answer 1

cider-repl.el提供了一个函数cider-repl-clear-buffer，默认情况下绑定到：

M-x c-r--bu RET

据我所知，cider-repl没有使用C-c M-b：

(add-hook 'cider-repl-mode-hook
      '(lambda () (define-key cider-repl-mode-map (kbd "C-c M-b")
            'cider-repl-clear-buffer)))