Emacs 中发生模式挂钩的奇怪行为

Question

我正在尝试调整 occur-mode 缓冲区窗口的大小以适应其缓冲区的内容。

更多信息请参见Resize occur window in Emacs。

我添加了以下钩子：

(add-hook 'occur-mode-hook
       (lambda ()
         (save-selected-window
           (pop-to-buffer "*Occur*")
       (message-box "ok")
       (fit-window-to-buffer nil 10))))

然后我有以下缓冲窗口：

我现在执行(occur "test")，这给了我第一个

按下“确定”按钮后，我得到了

请注意，出现窗口在框架底部已缩小到单行高度。这显然不是我想要的..

我现在在“t.txt”缓冲区中再次输入(occur "test")，在消息框按“ok”后，我得到以下信息：

所以现在它突然完美地工作了。为什么这第一次不起作用？

Answer 1

这行得通：

(defadvice occur (after occur-advice activate)
  "Resize window."
  (save-selected-window
    (pop-to-buffer "*Occur*")
    (fit-window-to-buffer nil 10)))

Answer 2

IIUC，重要的部分是将fit-window-to-buffer 的调用保持在save-selected-window 内。