emacs - Emacs 中显示缓冲区 split-height-threshold 和 split-width-threshold 的反向求值顺序

Question

当display-buffer必须在现有 Pane 中创建一个新窗口，Emacs manual声明 split-height-threshold首先查看新窗口是否可以低于当前窗口，然后 split-width-threshold对于并排窗口以相同的方式进行评估。

如果宽度足够高，有没有办法让Emacs首先尝试将窗口并排放置？我可以设置split-height-threshold至 nil完全禁止垂直拆分，但是如果当前窗口不够宽，这会使 Emacs 窃取另一个窗口。

Answer 1

您可以通过自定义变量 split-window-preferred-function 来让 Emacs 做到这一点。 :

(defun my-split-window-sensibly (&optional window)
  (let ((window (or window (selected-window))))
    (or (and (window-splittable-p window t)
             ;; Split window horizontally.
             (with-selected-window window
               (split-window-right)))
        (and (window-splittable-p window)
             ;; Split window vertically.
             (with-selected-window window
               (split-window-below)))
        (and (eq window (frame-root-window (window-frame window)))
             (not (window-minibuffer-p window))
             ;; If WINDOW is the only window on its frame and is not the
             ;; minibuffer window, try to split it horizontally disregarding
             ;; the value of `split-width-threshold'.
             (let ((split-width-threshold 0))
               (when (window-splittable-p window t)
                 (with-selected-window window
                   (split-window-right))))))))

(setq split-window-preferred-function 'my-split-window-sensibly)

变量 split-window-preferred-function

specifies a function for splitting a window, in order to make a new window for displaying a buffer. It is used by the display-buffer-pop-up-window action function to actually split the window.

默认情况下，它设置为 split-window-sensibly .我上面提供的功能是 split-window-sensibly的修改版(在 window.el 中定义)它只是颠倒了原始函数的步骤，导致 Emacs “更喜欢”并排窗口拆分而不是堆叠窗口拆分。