From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Jean Louis Newsgroups: gmane.emacs.help Subject: Re: How to force display-buffer-in-side-window to open side window on right? Date: Thu, 2 Feb 2023 22:38:01 +0300 Message-ID: References: <3edbaf19a5a823b6690efefbd9d56357.support1@rcdrun.com> <63dbfcd2.050a0220.79573.311d@mx.google.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="11008"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Mutt/2.2.9+54 (af2080d) (2022-11-21) Cc: Help GNU Emacs To: Bruno Barbier Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Thu Feb 02 23:09:23 2023 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1pNhlj-0002gH-BU for geh-help-gnu-emacs@m.gmane-mx.org; Thu, 02 Feb 2023 23:09:23 +0100 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pNhl0-0001lx-N1; Thu, 02 Feb 2023 17:08:38 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pNhkz-0001lj-3B for help-gnu-emacs@gnu.org; Thu, 02 Feb 2023 17:08:37 -0500 Original-Received: from stw1.rcdrun.com ([217.170.207.13]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pNhkx-0005On-Fv for help-gnu-emacs@gnu.org; Thu, 02 Feb 2023 17:08:36 -0500 Original-Received: from localhost ([::ffff:197.239.7.46]) (AUTH: PLAIN admin, TLS: TLS1.3,256bits,ECDHE_RSA_AES_256_GCM_SHA384) by stw1.rcdrun.com with ESMTPSA id 0000000000055D64.0000000063DC3443.00005E18; Thu, 02 Feb 2023 15:08:02 -0700 Mail-Followup-To: Bruno Barbier , Help GNU Emacs Content-Disposition: inline In-Reply-To: <63dbfcd2.050a0220.79573.311d@mx.google.com> Received-SPF: pass client-ip=217.170.207.13; envelope-from=bugs@gnu.support; helo=stw1.rcdrun.com X-Spam_score_int: -2 X-Spam_score: -0.3 X-Spam_bar: / X-Spam_report: (-0.3 / 5.0 requ) BAYES_00=-1.9, RCVD_IN_SBL=0.141, RCVD_IN_SORBS_WEB=1.5, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.help:142579 Archived-At: * Bruno Barbier [2023-02-02 21:13]: > > Jean Louis 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/