switch-to-buffer-other-window to split vertically by default ?

switch-to-buffer-other-window to split vertically by default ?

[Bastien]

Hi,

everything is in the subject line: i would like
`switch-to-buffer-other-window' to split the window 
*vertically* when no other window is open.

Any hint ?

-- 
Bastien

Re: switch-to-buffer-other-window to split vertically by default ?

[Romain Francoise]

Bastien <bzgNOSPAM@altern.org> writes:

> everything is in the subject line: i would like
> `switch-to-buffer-other-window' to split the window *vertically* when
> no other window is open.

It's not possible at the moment with a vanilla Emacs, the function that
splits the window (`display-buffer') is in the C code and isn't easily
customizable.  This will change after the 22.1 release.

However, if you use Debian's emacs-snapshot version, the following will
do the trick:

(defadvice switch-to-buffer-other-window (around change-split activate)
  (let ((display-buffer-prefer-horizontal-split t))
    ad-do-it))

-- 
Romain Francoise <romain@orebokech.com> | The sea! the sea! the open
it's a miracle -- http://orebokech.com/ | sea! The blue, the fresh, the
                                        | ever free! --Bryan W. Procter

Re: switch-to-buffer-other-window to split vertically by default ?

[Bastien]

Romain Francoise <romain@orebokech.com> writes:

> It's not possible at the moment with a vanilla Emacs, the function that
> splits the window (`display-buffer') is in the C code and isn't easily
> customizable.  This will change after the 22.1 release.

All right, thanks.

> However, if you use Debian's emacs-snapshot version, the following will
> do the trick:
>
> (defadvice switch-to-buffer-other-window (around change-split activate)
>   (let ((display-buffer-prefer-horizontal-split t))
>     ad-do-it))

I use Debian's emacs-snapshot but it doesn't work for me, even with
`display-buffer-prefer-horizontal-split' set to nil (wich seems more
appropriate). 

I can't find any reference to `display-buffer-prefer-horizontal-split'
nor `display-buffer-prefer-vertical-split' with C-h v.

Note that I tried to activate the advice with 

(ad-activate 'switch-to-buffer-other-window)

-- 
bastien

Re: switch-to-buffer-other-window to split vertically by default ?

[Romain Francoise]

Bastien <bzgNOSPAM@altern.org> writes:

> `display-buffer-prefer-horizontal-split' set to nil (wich seems more
> appropriate).

C-x 2 runs the command split-window-vertically
                                    ^^^^^^^^^^
C-x 3 runs the command split-window-horizontally
                                    ^^^^^^^^^^^^

> I can't find any reference to `display-buffer-prefer-horizontal-split'
> nor `display-buffer-prefer-vertical-split' with C-h v.

Which version are you using?

(Feel free to take this to private email if you like.)

-- 
Romain Francoise <romain@orebokech.com> | The sea! the sea! the open
it's a miracle -- http://orebokech.com/ | sea! The blue, the fresh, the
                                        | ever free! --Bryan W. Procter

Re: switch-to-buffer-other-window to split vertically by default ?

[martin rudalics]

With complete disregard for frames:

(defun my-display-buffer (buffer &optional not-this-window frame)
   (if (one-window-p)
       (let ((window (split-window-horizontally)))
	(set-window-buffer window buffer)
	window)
     (let (display-buffer-function)
       (display-buffer buffer not-this-window frame))))

(setq display-buffer-function 'my-display-buffer)

Re: switch-to-buffer-other-window to split vertically by default ?

[Bastien]

martin rudalics <rudalics@gmx.at> writes:

> With complete disregard for frames:
>
> (defun my-display-buffer (buffer &optional not-this-window frame)

Works great - thanks !

-- 
Bastien