How to force display-buffer-in-side-window to open side window on right?

How to force display-buffer-in-side-window to open side window on right?

[Jean Louis]

I am trying to make function to provide 2 buffers in 2 windows, side
by side.

(defun rcd-two-windows (buffer-left buffer-right &optional window-register)
  "Display BUFFER-LEFT and BUFFER-RIGHT only.

Previous window configuration is saved register ?r or to optional
WINDOW-REGISTER.

Parent function may restore window configuration by using the
function `jump-to-register' with WINDOW-REGISTER as argument."
  (cond ((and (buffer-live-p buffer-left) (buffer-live-p buffer-right))
	 (let ((register (or window-register ?r)))
	   (window-configuration-to-register register)
	   (switch-to-buffer buffer-left)
	   (delete-other-windows)
	   (display-buffer-in-side-window buffer-right '(side right))))
	(t (user-error "Buffers `%s' and `%s' must be live" buffer-left buffer-right))))


However, with `emacs -Q' this below gives me window and smaller window
down on the bottom instead on right side

(let ((buffer-left (get-buffer-create "*My Left*"))
      (buffer-right (get-buffer-create "*My Right*")))
  (rcd-two-windows buffer-left buffer-right))

What am I doing wrong?


--
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/

Re: How to force display-buffer-in-side-window to open side window on right?

[Bruno Barbier]

Jean Louis <bugs@gnu.support> writes:

>
> What am I doing wrong?

At least the following line is wrong:

   	   (display-buffer-in-side-window buffer-right '(side right))

it should be:

       (display-buffer-in-side-window buffer-right '((side . right)))

Bruno

Re: How to force display-buffer-in-side-window to open side window on right?

[Jean Louis]

* Bruno Barbier <brubar.cs@gmail.com> [2023-02-02 21:13]:
> 
> Jean Louis <bugs@gnu.support> writes:
> 
> >
> > What am I doing wrong?
> 
> At least the following line is wrong:
> 
>    	   (display-buffer-in-side-window buffer-right '(side right))
> 
> it should be:
> 
>        (display-buffer-in-side-window buffer-right '((side . right)))

Thank you, that is good to understand.

Though I can see tha windows are not equal. So I changed it to:
  (switch-to-buffer-other-window buffer-right)))

and now it works well, but I am not sure how would that be affected by
user options.

(defun rcd-two-windows (buffer-left buffer-right &optional window-register)
  "Display BUFFER-LEFT and BUFFER-RIGHT only.

Previous window configuration is saved register ?r or to optional
WINDOW-REGISTER.

Parent function may restore window configuration by using the
function `jump-to-register' with WINDOW-REGISTER as argument."
  (cond ((and (buffer-live-p buffer-left) (buffer-live-p buffer-right))
	 (let ((register (or window-register ?r)))
	   (window-configuration-to-register register)
	   (switch-to-buffer buffer-left)
	   (delete-other-windows)
	   ;; (display-buffer-in-side-window buffer-right '((side . right)))))
	   (switch-to-buffer-other-window buffer-right)))
	(t (user-error "Buffers `%s' and `%s' must be live" buffer-left buffer-right))))


(let ((buffer-left (get-buffer-create "*My Left*"))
      (buffer-right (get-buffer-create "*My Right*")))
  (rcd-two-windows buffer-left buffer-right))

-- 
Jean

Take action in Free Software Foundation campaigns:
https://www.fsf.org/campaigns

In support of Richard M. Stallman
https://stallmansupport.org/