调整Emacs中的窗口大小

Question

例如，当进入occur模式时，框架分裂为两个窗口，如下所示：

​

​

正如所看到的，出现缓冲区占用了帧上太多的空间，因为只有两个匹配(对于文本"test")。我想相应地缩小那扇窗户。

我尝试了以下代码：

(defun test-occur ()
  (interactive)
  (occur "test")
  (save-window-excursion
    (other-window 1)
    (let (( win (selected-window))
      (n (count-lines (point-min) (point-max)))
      (h (window-body-height)))
      (let ((delta (- (- h n) 3)))
    (window-resize win (- 0 delta) nil)))))

但是它不起作用(发生窗口什么都没有发生)。

Answer 1

就这么做吧：

 (add-hook 'occur-hook
       (lambda ()
         (save-selected-window
           (pop-to-buffer "*Occur*")
           (fit-window-to-buffer))))