diff options
| -rw-r--r-- | bw.el | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -66,8 +66,19 @@ (local-set-key (kbd "C-c C-q") 'delete-window) win)) +(defun bw-display-in-other-window (buffer alist) + "Show BUFFER in any window that is not the bottom window. + +Discard ALIST." + (let ((win (get-buffer-window buffer))) + (when (window-parameter win 'bw-bottom) + (setq win (next-window win 'no))) + (set-window-buffer win buffer))) + (add-to-list 'display-buffer-alist '("^\\*.*\\*$" . ((bw-display-in-bottom-window . nil)))) +(add-to-list 'display-buffer-alist + '(".*" . ((bw-display-in-other-window . nil))) t) (add-to-list 'window-persistent-parameters (cons 'bw-bottom t)) (defun bw-find-appropriate-buffer () |