emacs - 自动关闭emacs shell模式选项卡完成缓冲区？

Question

这让我发疯了很长时间；我想知道有没有办法解决它？希望我能很好地描述情况。

为简单起见，假设我有以下目录结构:~jer/dirA 和 ~jer/dirB

在 emacs 的一个 shell 中，我从我的顶级目录 (~jer) 开始，输入“cd dir”，然后点击选项卡。

我的窗口一分为二，我有一个 *Completions* 缓冲区。这很酷;我看到我的选择是 'dirA' 和 'dirB'，我输入了一个 'A'(所以我的完整命令是 'cd dirA')并按回车键，但 *Completions* 缓冲区保持打开状态，我必须手动关闭它(通常使用 'C-x 1'，因为我在要保存的 shell 缓冲区中，但如果我已经有一个拆分窗口，那就更烦人了，因为 *Completions* 缓冲区取代了另一个已经在那里，我必须切换到那个并按 C-x k 手动杀死它)。

所以我的问题是:有没有办法让 *Completions* 在我完成命令后自动消失？在上面的示例中，只要我在输入“cd DirA”后按 Enter，我就会希望缓冲区被终止。

谢谢，我希望这是有道理的。请注意，我不认为这是 Is there any way to automatically close filename completetion buffers in Emacs? 的副本，因为那是关于使用 find-file (在这种情况下， *Completions* 缓冲区确实会关闭。

Answer 1

我认为这正是你想要的。
删除完成窗口缓冲区 每次输入命令时都会执行函数。它找到所有当前窗口并从中获取缓冲区。然后它会检查缓冲区的名称是否是“*Completions*”，是让你发疯的缓冲区，如果是，则杀死缓冲区并删除相应的窗口。
最后，它将输出字符串传递给您的下一个钩子(Hook) comint-preoutput-filter-functions。
为什么有输出参数？ 请参阅 comint-preoutput-filter-functions 的文档；在那里更好地解释。

(defun delete-completion-window-buffer (&optional output)                                                                
  (interactive)                                                                                                
  (dolist (win (window-list))                                                                                  
    (when (string= (buffer-name (window-buffer win)) "*Completions*")                                          
      (delete-window win)                                                                                      
      (kill-buffer "*Completions*")))                                                                          
  output)                                                                                                      

(add-hook 'comint-preoutput-filter-functions 'delete-completion-window-buffer)

但实际上，完成缓冲区并没有给我带来太多困扰。麻烦的是命令“clear”没有
运作良好。为了解决你的问题，我google shell-mode，什么都没有。
但我找到了解决问题的方法 EmacsWiki .

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

(define-key shell-mode-map (kbd "C-l") 'clear-shell)                                                           

我将它绑定(bind)到 Ctrl-L，即普通的终端绑定(bind)。
不错的代码。希望你喜欢!