From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: martin rudalics Newsgroups: gmane.emacs.bugs Subject: bug#47300: delete-window to select window with same position Date: Mon, 7 Jun 2021 09:35:07 +0200 Message-ID: <52edd629-faee-9c91-525d-51a34d8a0a15@gmx.at> References: <87a6qw43gg.fsf@mail.linkov.net> <87pmxodrmq.fsf@gnus.org> <7f870f9b-95ad-6b5d-82aa-1bcfe5cc880a@gmx.at> <87fsyk0w92.fsf@mail.linkov.net> <2ec3b911-4fb1-4b13-a5b8-28278a5c43ba@gmx.at> <87h7iyzvh5.fsf@mail.linkov.net> <0c239adb-e9d5-1fe9-4c4c-2da1603002f7@gmx.at> <87mtsmmpey.fsf@mail.linkov.net> <1032ab23-3905-1b3f-917c-60ccd12337b3@gmx.at> <87v9752n4r.fsf@mail.linkov.net> <63612145-5eaa-0766-30cc-f30f7e7e1700@gmx.at> <87k0nefwq6.fsf@mail.linkov.net> <6f37ba16-527b-4537-116c-b215a9f39d1b@gmx.at> <87o8cmwrsf.fsf@mail.linkov.net> <30a62fd1-35f4-c8cf-4239-8ae9ae2d8af2@gmx.at> <87k0n97g1t.fsf@mail.linkov.net> <3c111515-d877-06fd-6291-09e624dba97c@gmx.at> <87zgw2lnyb.fsf@mail.linkov.net> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="1965"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Lars Ingebrigtsen , 47300@debbugs.gnu.org To: Juri Linkov Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Mon Jun 07 09:36:15 2021 Return-path: Envelope-to: geb-bug-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 1lq9nx-0000M2-W1 for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 07 Jun 2021 09:36:14 +0200 Original-Received: from localhost ([::1]:50250 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1lq9nx-0000iU-29 for geb-bug-gnu-emacs@m.gmane-mx.org; Mon, 07 Jun 2021 03:36:13 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:42422) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1lq9nn-0000Xo-AC for bug-gnu-emacs@gnu.org; Mon, 07 Jun 2021 03:36:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:42804) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1lq9nn-0007M6-3O for bug-gnu-emacs@gnu.org; Mon, 07 Jun 2021 03:36:03 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1lq9nn-0000pO-0p for bug-gnu-emacs@gnu.org; Mon, 07 Jun 2021 03:36:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: martin rudalics Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 07 Jun 2021 07:36:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 47300 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: patch Original-Received: via spool by 47300-submit@debbugs.gnu.org id=B47300.16230513183109 (code B ref 47300); Mon, 07 Jun 2021 07:36:02 +0000 Original-Received: (at 47300) by debbugs.gnu.org; 7 Jun 2021 07:35:18 +0000 Original-Received: from localhost ([127.0.0.1]:54346 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lq9n4-0000o5-BD for submit@debbugs.gnu.org; Mon, 07 Jun 2021 03:35:18 -0400 Original-Received: from mout.gmx.net ([212.227.15.15]:36553) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1lq9n1-0000nm-6G for 47300@debbugs.gnu.org; Mon, 07 Jun 2021 03:35:17 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.net; s=badeba3b8450; t=1623051308; bh=w4ynMP8xZLLaa4aLjI41TY2QL55BhPTUUqNsO9WsIFA=; h=X-UI-Sender-Class:Subject:To:Cc:References:From:Date:In-Reply-To; b=MFBx1D2hevrGgLP4JRxvBoItDkyqVUD87Q2iNcVKtoTYHZg3iM7RhShb3PX8q6MBS v3Qnp/wRilm90vq12VSSvk+o3phD6OmrT+As7uaBNW+yQPDLoQcwAyTYQnPGZNlrXc Sz8JQLGqmIUaQ3CS8HaGW1uZC8vx+TVE25JU39VI= X-UI-Sender-Class: 01bb95c1-4bf8-414a-932a-4f6e2808ef9c Original-Received: from [192.168.1.100] ([213.142.96.94]) by mail.gmx.net (mrgmx005 [212.227.17.190]) with ESMTPSA (Nemesis) id 1MbzuH-1lDmtf2TXj-00dVa8; Mon, 07 Jun 2021 09:35:08 +0200 In-Reply-To: <87zgw2lnyb.fsf@mail.linkov.net> Content-Language: en-US X-Provags-ID: V03:K1:OxMVmO1fhqflCaeTZiAyYYXqDZRM0q/vV0q2688QcEX9MO8uGRp 3TG6oDXRiC0+aycbrg0TMEQXPOR20zJUraqWVudtF4OqoDeXk/GjiRDgS/z1JIqqi2E4DpS CvIQF1izaWQIO0MfoJjGNsT1n+AvukP6JgQppoyKmlb1JBfgqPkVFM6Dzt+xxhbVX87xtY7 YU1clsoJuu8e++AynVeag== X-UI-Out-Filterresults: notjunk:1;V03:K0:iwKV01lFcfE=:dcF5zPymKTsq4eF/hWDL+B 8J2RRjFdpFsliEKxFoEa15sEBH6Hg6Q/Dfo0+gIK8nWMdEZPC3/H/mbwupYH+6sKXQt8fryP2 XqAq7QB0oBW6twAIZfeiTh0AQJIF1xDEbc6HHCV6x7YzFRIG+q1bMFG+MdfwVzA3zs908jNUR NXPbbzesvWXPe+v+N3xeGuRP9wpc60dm2/CzZbD0d+VZURdccO5gpXNyoE94+Wob4rdZ3sore FF8y8HESZjcmvwKoUKoyPAt8CyRbbqJDBpsM/4sNDPA6eWBWUbVZCi34vszgBvs7/SzaHRLUX cXrGXsm3p5yzDSYO5U+ESTnaj/q7l7fHpO91rxqPB1dblC6rcFgQzEtdZ16RzJU5Pgul+ldhn Hj5t8Sib4NMOM9JS9yr7oBQ2Uqw3R5eQaqcT2R6B614LF7MqKUnbOVuI+HpwSE+AFO4iWuqAA P6TkOsccsqyATRUOfz/5Hrmb0vT7rsV3HChQwmP11RjrCFhBwi+l7DB3auQ7CcNr1VMo7DA42 9eB1yJWvBXqUmUOAQXURe3fo9dxSXg8yKXBVaBTr1LHmvqXs5KvHoH9lmqSqnLP2EQLiNv3sn hbFs5NRcadHAvVTP+qvd7V8bMeqe+FvziyF/QkwNgLg5/U7DVdDS1zjadt73UPZ3Rawf7TaOT Mk5+4L7Lq702uvcKfbjDZOFBRcHNGG/hJl1Ep/fe4jH6BpW/AQF30K0lSrB8/xpHgE8rUGCHE OOI5Qlx48Jya4zt0Ib1Ok/RkaFN6pttfS+XpjN6mcf+fhoE+Ml8/fzDKhX004xZRO/CEsuTN X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:208174 Archived-At: > The customization interface could use only functions that could be > first called before deletion, then the customized function returns > a lambda that will be called after deletion. Only specialized users would be able to write such a function. And they can use the 'delete-window' parameter for that purpose. > Then for example > all 'pos' logic could be moved to a separate function: > > (defun delete-window-pos () > (let ((frame-selected-window-edges (window-edges frame-selected-window nil nil t)) > (frame-selected-window-pos (nth 2 (posn-at-point nil frame-selected-window)))) > (lambda () > (let ((new-frame-selected-window > (window-at-pos > (+ (nth 0 frame-selected-window-edges) > (car frame-selected-window-pos)) > (+ (nth 1 frame-selected-window-edges) > (cdr frame-selected-window-pos)) > frame t))) > (and new-frame-selected-window > ;; Select window at WINDOW's position at point. > (set-frame-selected-window > frame new-frame-selected-window)))))) I'm completely lost with the scoping of that first `let'. So at least for a poor soul like me such a solution would not be feasible at all. martin