From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.bugs Subject: bug#32790: 27.0.50; point jumps unexpectedly after delete-window Date: Thu, 18 Oct 2018 00:30:40 +0300 Organization: LINKOV.NET Message-ID: <87woqgw9a7.fsf@mail.linkov.net> References: <87efdnsp2k.fsf@mail.linkov.net> <5BA490EA.4000502@gmx.at> <87bm8pxjcb.fsf@mail.linkov.net> <5BA74E75.8000405@gmx.at> <87zhw8nd8g.fsf@mail.linkov.net> <5BA8A143.9040604@gmx.at> <87sh1ybyo6.fsf@mail.linkov.net> <5BA9E390.8030506@gmx.at> <87pnx1h1op.fsf@mail.linkov.net> <5BAB489E.5090002@gmx.at> <87h8ibvrs2.fsf@mail.linkov.net> <5BAD2507.6040605@gmx.at> <87a7nedidg.fsf@mail.linkov.net> <5BC5A558.9010401@gmx.at> <87zhvd7mg9.fsf@mail.linkov.net> <5BC6E52F.2070209@gmx.at> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1539815297 9268 195.159.176.226 (17 Oct 2018 22:28:17 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 17 Oct 2018 22:28:17 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (x86_64-pc-linux-gnu) Cc: 32790@debbugs.gnu.org To: martin rudalics Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Thu Oct 18 00:28:13 2018 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gCuIV-0002Ha-Go for geb-bug-gnu-emacs@m.gmane.org; Thu, 18 Oct 2018 00:28:11 +0200 Original-Received: from localhost ([::1]:39383 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gCuKc-0008Dl-0d for geb-bug-gnu-emacs@m.gmane.org; Wed, 17 Oct 2018 18:30:22 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:37185) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gCuKS-0008Bp-2h for bug-gnu-emacs@gnu.org; Wed, 17 Oct 2018 18:30:13 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gCuKM-0000DT-0G for bug-gnu-emacs@gnu.org; Wed, 17 Oct 2018 18:30:11 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:51676) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gCuKK-0000Bh-2o for bug-gnu-emacs@gnu.org; Wed, 17 Oct 2018 18:30:05 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gCuKI-0003rR-4E for bug-gnu-emacs@gnu.org; Wed, 17 Oct 2018 18:30:03 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Juri Linkov Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 17 Oct 2018 22:30:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 32790 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 32790-submit@debbugs.gnu.org id=B32790.153981535514707 (code B ref 32790); Wed, 17 Oct 2018 22:30:02 +0000 Original-Received: (at 32790) by debbugs.gnu.org; 17 Oct 2018 22:29:15 +0000 Original-Received: from localhost ([127.0.0.1]:55926 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gCuJW-0003p7-NL for submit@debbugs.gnu.org; Wed, 17 Oct 2018 18:29:14 -0400 Original-Received: from pop.dreamhost.com ([64.90.62.162]:58046 helo=pdx1-sub0-mail-a75.g.dreamhost.com) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1gCuJV-0003oz-13 for 32790@debbugs.gnu.org; Wed, 17 Oct 2018 18:29:13 -0400 Original-Received: from pdx1-sub0-mail-a75.g.dreamhost.com (localhost [127.0.0.1]) by pdx1-sub0-mail-a75.g.dreamhost.com (Postfix) with ESMTP id 3F1C3807FB; Wed, 17 Oct 2018 15:29:12 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=linkov.net; h=from:to:cc :subject:references:date:in-reply-to:message-id:mime-version :content-type; s=linkov.net; bh=J/1EYUonYVcMaT1EHEVTKUU2S1o=; b= otDHS6M2BJJQJu+ccZAIVTuGb0RciqxgJRATTsa9LKowrIX7k6YMLryhm20qrW8L ns6xpz9ox2RQWl3I6LXw2qr9IM/qUnyGMphLAigFcTYQqY+ohnRySmjIPgKiaZlN mlVG0C/EoVLX8vEC/Kj9qKXeQUN99w1uD8sgl0chLj0= Original-Received: from localhost.linkov.net (m91-129-96-249.cust.tele2.ee [91.129.96.249]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) (Authenticated sender: jurta@jurta.org) by pdx1-sub0-mail-a75.g.dreamhost.com (Postfix) with ESMTPSA id 0900D807EE; Wed, 17 Oct 2018 15:29:09 -0700 (PDT) X-DH-BACKEND: pdx1-sub0-mail-a75 In-Reply-To: <5BC6E52F.2070209@gmx.at> (martin rudalics's message of "Wed, 17 Oct 2018 09:30:55 +0200") X-VR-OUT-STATUS: OK X-VR-OUT-SCORE: -100 X-VR-OUT-SPAMCAUSE: gggruggvucftvghtrhhoucdtuddrgedtkedrfeefgddtkecutefuodetggdotefrodftvfcurfhrohhfihhlvgemucggtfgfnhhsuhgsshgtrhhisggvpdfftffgtefojffquffvnecuuegrihhlohhuthemuceftddtnecusecvtfgvtghiphhivghnthhsucdlqddutddtmdenucfjughrpefhvffuohhfffgjkfgfgggtsehttdertddtredtnecuhfhrohhmpefluhhrihcunfhinhhkohhvuceojhhurhhisehlihhnkhhovhdrnhgvtheqnecukfhppeeluddruddvledrleeirddvgeelnecurfgrrhgrmhepmhhouggvpehsmhhtphdphhgvlhhopehlohgtrghlhhhoshhtrdhlihhnkhhovhdrnhgvthdpihhnvghtpeeluddruddvledrleeirddvgeelpdhrvghtuhhrnhdqphgrthhhpefluhhrihcunfhinhhkohhvuceojhhurhhisehlihhnkhhovhdrnhgvtheqpdhmrghilhhfrhhomhepjhhurhhisehlihhnkhhovhdrnhgvthdpnhhrtghpthhtoheprhhuuggrlhhitghssehgmhigrdgrthenucevlhhushhtvghrufhiiigvpedt X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 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.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:151359 Archived-At: >> For window selection I use (windmove-default-keybindings 'hyper), >> so e.g. '' selects the left window. Could you recommend >> a command to bind to e.g. 'C-x ' that will delete the left >> window? > > Here drags the character under the cursor by one character to > the left and drags the current line up by one line. I use > for selecting the window on the left. either > deletes the window on the left of the selected window provided there > is one or makes a new window on the left of the selected window > provided the selected window is already on the left of the frame. The > code for that command is below. Thanks for sharing the code. Now I have a good configuration: (defun my-windmove (&optional arg) (interactive "P") (let ((dir (event-basic-type (aref (this-command-keys) 0)))) (condition-case nil (windmove-do-window-select dir arg) (error (select-window (split-window nil nil dir)))))) (defun my-windelete (&optional arg) (interactive "P") (let ((dir (event-basic-type (aref (this-command-keys) 1)))) (delete-window (window-in-direction dir)))) (let ((modifiers '(hyper))) (dolist (key '(left right up down)) (define-key global-map (vector (append modifiers (list key))) 'my-windmove) (define-key ctl-x-map (vector (append modifiers (list key))) 'my-windelete))) The only problem is the mismatch between key names and direction names. Could you add aliases for 'up' and 'down' in window-in-direction? Then we won't need such special handling in windmove.el: (window-in-direction (cond ((eq dir 'up) 'above) ((eq dir 'down) 'below) (t dir)) window nil arg windmove-wrap-around t)