From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: Transposing words over middle words Date: Fri, 17 Nov 2017 00:02:39 +0100 Message-ID: <86vai94yk0.fsf@zoho.com> References: <20171115155650067497545@bob.proulx.com> <87vaia9e9v.fsf@mbork.pl> <86h8tu53il.fsf@zoho.com> <20171116152956604638874@bob.proulx.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1510873547 10046 195.159.176.226 (16 Nov 2017 23:05:47 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Thu, 16 Nov 2017 23:05:47 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.4 (gnu/linux) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Nov 17 00:05:43 2017 Return-path: Envelope-to: geh-help-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 1eFTE7-0002L7-9E for geh-help-gnu-emacs@m.gmane.org; Fri, 17 Nov 2017 00:05:43 +0100 Original-Received: from localhost ([::1]:43201 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eFTEE-0008Gd-IN for geh-help-gnu-emacs@m.gmane.org; Thu, 16 Nov 2017 18:05:50 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:49209) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eFTDj-0008GX-9A for help-gnu-emacs@gnu.org; Thu, 16 Nov 2017 18:05:20 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eFTDg-00054j-22 for help-gnu-emacs@gnu.org; Thu, 16 Nov 2017 18:05:19 -0500 Original-Received: from [195.159.176.226] (port=46524 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eFTDf-00052G-Qy for help-gnu-emacs@gnu.org; Thu, 16 Nov 2017 18:05:15 -0500 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1eFTDV-0000BB-3r for help-gnu-emacs@gnu.org; Fri, 17 Nov 2017 00:05:05 +0100 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: help-gnu-emacs@gnu.org Original-Lines: 32 Original-X-Complaints-To: usenet@blaine.gmane.org Mail-Copies-To: never Cancel-Lock: sha1:zhyNKBhO3BjQ5Do2HiZuQIvHfy8= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] [fuzzy] X-Received-From: 195.159.176.226 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.21 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.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.org gmane.emacs.help:114916 Archived-At: Bob Proulx wrote: >> (defun transpose-over-word () >> (interactive) >> (transpose-subr #'forward-word 2) >> (backward-word 1) >> (transpose-subr #'forward-word -1) ) > > This is a nice example of the joy of > customizing emacs. *extending (but I agree, of course) > For my tastes I would want it to move the > point with the word being dragged forward two > words. Here is my modification to the above. > > (defun transpose-over-word () > (interactive) > (transpose-subr #'forward-word 2) > (backward-word 1) > (transpose-subr #'forward-word -1) > (forward-word 1) ) > > That actually does exactly what I would want > M-1 M-t to do. Don't mention it :) -- underground experts united http://user.it.uu.se/~embe8573