使用 emacs shell 时清除 shell 的命令

Question

在 emacs 中使用 shell 时是否有清除 shell 的内置命令？

如果没有，是否有一个 elisp 函数可以实现相同的功能？

Answer 1

2015 年 2 月更新

刚刚注意到 Emacs 现在（版本 25+）有命令 comint-clear-buffer，默认绑定到 C-c M-o，这可以满足我们的需要，并且可能比我最初在下面发布的答案更可取。

考虑的选项：

1. C-l 将使缓冲区居中。反复按下它会循环缓冲区，以便该点出现在缓冲区的顶部、中间或底部。当它停在顶部时，缓冲区看起来已经被清除了，尽管所有的文本都还在那儿，不在视线范围内。

2. C-x h 标记整个缓冲区，然后C-w 将其杀死。这也会杀死最后一个提示，但是在您输入下一个命令后，您会得到提示。

3. 你也可以使用erase-buffer，默认不绑定键，但是很容易做到（你也可以使用M-x erase-buffer：

    (defun my-shell-hook ()
      (local-set-key "\C-cl" 'erase-buffer))

    (add-hook 'shell-mode-hook 'my-shell-hook)

将它绑定到C-c l;你可以选择你喜欢的。

4. 可以在清除后重新创建提示的快速修复：

    (defun my-clear ()
      (interactive)
      (erase-buffer)
      (comint-send-input))

    (defun my-shell-hook ()
      (local-set-key "\C-cl" 'my-clear))

    (add-hook 'shell-mode-hook 'my-shell-hook)

在您使用 emacs 一段时间后，标记和杀死区域变得很自然，因此您可能会发现第一个选项就足够了。如果不是，则最后一个选项最接近您想要的。

编辑：刚刚在 emacs wiki 上找到了这个，它比我的选项 4 更好：

(defun my-clear ()
  (interactive)
  (let ((comint-buffer-maximum-size 0))
    (comint-truncate-buffer)))

Answer 2

这里提出的大多数解决方案在 EShell 模式下都不起作用！

EShell 模式缓冲区是只读的，因此 kill 和 erase 命令将不起作用。

要使用普通的 Ctrl-L 清除 eshell 终端，请将其添加到您的 .init 文件中：

(defun eshell-clear-buffer ()
  "Clear terminal"
  (interactive)
  (let ((inhibit-read-only t))
    (erase-buffer)
    (eshell-send-input)))
(add-hook 'eshell-mode-hook
      '(lambda()
          (local-set-key (kbd "C-l") 'eshell-clear-buffer)))

注意：为了更好地模拟标准的Ctrl-L，清除缓冲区后，该命令将恢复初始提示。

Answer 3

在*shell* 缓冲区中，运行：

C-c M-o

或

M-x comint-clear-buffer

注意：这也适用于*Python* shell，但似乎不适用于*eshell*。

Answer 4

AFAIK 当您以 M-x shell 启动时，您无法清除，但如果您执行 M-x term，您将获得一个功能齐全的终端，其中 clear 按预期工作。虽然我可能错了，但我个人现在使用 M-x 术语，因为它功能齐全。

Answer 5

如果你发现，你不能使用擦除缓冲区并显示文本是只读的。 您可以使用以下替换功能。

  (defun eshell/clear ()
  "Hi, you will clear the eshell buffer."
  (interactive)
  (let ((inhibit-read-only t))
    (erase-buffer)
    (message "erase eshell buffer")))

Answer 6

或者... 你可以截断缓冲区。

(let ((eshell-buffer-maximum-lines 0)) (eshell-truncate-buffer))