Search code examples
emacslispelispadvising-functions

How to force Emacs not to display buffer in a specific window?


My windows configuration looks like this:

          +----------+-----------+
      |          |           |
      |          |           |
      |          |           |
      |          |           |
      |          |           |
      |          +-----------+
      |          |           |
      +----------+-----------+

And I use the lower right window for special displays (like help, completion etc.), but emacs insists on using that window when I call commands (find-file-other-window, etc.) that use display-buffer, and resize that window as well. It's annoying... Is there a way that I can force emacs NOT to use that windows? I was thinking of advising display-buffer, but it's a function in c. Any thoughts on this?

EDIT:

Based heavily on Trey's answer, this is what works for me so far:

(setq special-display-function 'my-display-buffer)
(setq special-display-regexps '(".*"))

(defun display-special-buffer (buf)
  "put the special buffers in the right spot (bottom rigt)"
    (let ((target-window (window-at (- (frame-width) 4) (- (frame-height) 4)))
          (pop-up-windows t))
      (set-window-buffer target-window buf)
      target-window))

(defun my-display-buffer (buf)
  "put all buffers in a window other than the one in the bottom right"
  (message (buffer-name  buf))
  (if (member (buffer-name buf) special-display-buffer-names)
      (display-special-buffer buf)
      (progn
        (let ((pop-up-windows t)
              (windows (delete (window-at (- (frame-width) 4) (- (frame-height) 4))
                         (delete (minibuffer-window) (window-list)))))
          (message (buffer-name (window-buffer (car windows))))
          (set-window-buffer (car (cdr windows)) buf)
          (car (cdr windows))))))

Solution

  • Well, someone already asked the same question for completion. And I wrote up an answer that seemed to work pretty well.

    It looks like you could use that same solution, except instead of adding to special-display-buffer-names, you can use the variable special-display-regexps. So something along the lines of:

    (add-to-list 'special-display-regexps '(".*" my-display-buffers))
    
    (defun my-display-buffers (buf)
      "put all buffers in a window other than the one in the bottom right"
      (let ((windows (delete (window-at (- (frame-width) 2) (- (frame-height) 4))
                             (delete (minibuffer-window) (window-list))))
        (if (<= 2 (length windows))
            (progn 
              (select-window (cadr windows))
              (split-window-vertically)))
        (let ((pop-up-windows t))
          (set-window-buffer (car windows) buf)
          (car windows)))))
    

    Obviously you'll have to modify the regexp to not match the *Help* and other buffers that you actually want in the lower right window.

    Regarding advising display-buffer, that would work. You can advise functions written in c, advice works in pretty much every case you'd want except when functions are called from c, or advising macros (which doesn't work b/c the macros are generally already expanded everywhere they're used).