From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daniel Colascione Newsgroups: gmane.emacs.devel Subject: Make register insertion consistent with other insertion Date: Wed, 10 Sep 2014 19:26:15 -0700 Message-ID: <54110847.50204@dancol.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha256; protocol="application/pgp-signature"; boundary="vbcS76vx8R4bHXi1Pcnd2dKOJAfXuVEQv" X-Trace: ger.gmane.org 1410402407 16283 80.91.229.3 (11 Sep 2014 02:26:47 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 11 Sep 2014 02:26:47 +0000 (UTC) To: Emacs developers Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Thu Sep 11 04:26:41 2014 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1XRu5p-00031f-C2 for ged-emacs-devel@m.gmane.org; Thu, 11 Sep 2014 04:26:41 +0200 Original-Received: from localhost ([::1]:59690 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XRu5o-0000vB-Ke for ged-emacs-devel@m.gmane.org; Wed, 10 Sep 2014 22:26:40 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57596) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XRu5f-0000um-33 for emacs-devel@gnu.org; Wed, 10 Sep 2014 22:26:37 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XRu5Y-0004tZ-N2 for emacs-devel@gnu.org; Wed, 10 Sep 2014 22:26:31 -0400 Original-Received: from dancol.org ([2600:3c01::f03c:91ff:fedf:adf3]:48497) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XRu5Y-0004pf-C1 for emacs-devel@gnu.org; Wed, 10 Sep 2014 22:26:24 -0400 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=dancol.org; s=x; h=Content-Type:Subject:To:MIME-Version:From:Date:Message-ID; bh=ucSPk6Ujl2mNO4/CwyNmNiWuJ/Cds9GMeJWty4X43hA=; b=dEGLzaWBUaM4jicSwIdNfQuibnI1D4FyZLVDZvPaRXCyGcAyKQZrzmmySxUYXZr03NNvuJHRuTB9E50zLmoEobqsNAA7iioRQZYonCG5FzKp2wH1PpcjuZMM3kcKxrKybE3gAOep0OR+FGG+McwTSF+K7f2DgHOhTLI23v7x+95yYgjyow6T/Pc8a8K46IGejab8Zc0Pdb8DK62hgNP9VvZCg5mrg3aiJJkKx9MfKd29OMUmnBd5u5iVoUNBRRFPVgb8mUhiyl2HXP+ElR/DM+Fhsmn8Q1V3Bau1YtjZMk3qFjHUL8dGgpdmga0SYwGk4uRqlujLSHfY7cS06SOHaw==; Original-Received: from [24.16.210.95] (helo=[192.168.1.174]) by dancol.org with esmtpsa (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.84_RC2) (envelope-from ) id 1XRu5R-00026w-B7 for emacs-devel@gnu.org; Wed, 10 Sep 2014 19:26:17 -0700 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:31.0) Gecko/20100101 Thunderbird/31.0 X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2600:3c01::f03c:91ff:fedf:adf3 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:174172 Archived-At: This is an OpenPGP/MIME signed message (RFC 4880 and 3156) --vbcS76vx8R4bHXi1Pcnd2dKOJAfXuVEQv Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable I'd like to apply the following patch to flip the sense of the prefix argument to interact calls to insert-register. I find the current default behavior of putting point before the inserted text annoying; I want it after more often and don't want to add C-u to an already long key sequence. Of course, this is an incompatible change to a very old interface, but the breakage should be limited to muscle memory and recorded macros. =3D=3D=3D modified file 'lisp/register.el' --- lisp/register.el 2014-06-03 09:06:18 +0000 +++ lisp/register.el 2014-09-11 02:24:53 +0000 @@ -425,13 +425,14 @@ "Insert contents of register REGISTER. (REGISTER is a character.) Normally puts point before and mark after the inserted text. If optional second arg is non-nil, puts mark before and point after. -Interactively, second arg is non-nil if prefix arg is supplied. +Interactively, second arg is nil if prefix arg is supplied and t +otherwise. Interactively, reads the register using `register-read-with-preview'." (interactive (progn (barf-if-buffer-read-only) (list (register-read-with-preview "Insert register: ") - current-prefix-arg))) + (not current-prefix-arg)))) (push-mark) (let ((val (get-register register))) (cond --vbcS76vx8R4bHXi1Pcnd2dKOJAfXuVEQv Content-Type: application/pgp-signature; name="signature.asc" Content-Description: OpenPGP digital signature Content-Disposition: attachment; filename="signature.asc" -----BEGIN PGP SIGNATURE----- Version: GnuPG v1 iQIcBAEBCAAGBQJUEQhHAAoJEN4WImmbpWBlrOYP/2e9IjueU5EBzeaL8E2SB7hH tjE41SfG0YhNGa4HLnws3Z2jq9enVsA4lS7zJnx2CzaI2fo9TgHqZXVNiHBYclmH LxHSZZfTz0NncYoejtz6SpexoGw0z1kBp6uiTh5CByaK7xcsm0ncKzNLy6d7/5Cv UEVhRWuBhcuZb5syFVS5jP1GLuDcmTdzfFZvp2S7KC3gATrnWn0/jxDXhQSVJzun YIcirldf7k0REyC1/ecTAJP9WDD+iAIxv5xh7gowsp4RYb+FHVPI3aP3f+7cBtrA gthL42zDe7mAHtppgXfjRDWXC6zExmO0NMRWxPqjUiQOeXHBIWln9W/usOXhdL07 LsA20Za2ZYiVs7zw7U2A4nh1/ywr5BGA+k3QBDEfmCFLDpmCOeYphGoKglIrQMKE 7T4XRKIeAPu+8tKo5fuwHp6LhCUSjK3W5QjuBcK7u3NKBL2K+JmrfIitiKPI/iYj HNoLSRzQOE7Cf0d/wCI51DU1NkQZKdE6ITgErziimgc7fj6152dnK7fNKSSLz5EE YEqqbxfB2NGsH0/PueusD7ub8LAFjbXIH2WzuicY7+jXQfLDymNKYSizfyA5Uo7h sKQKVy3bUknEI2Oxv9qcTkVw+t5g57JhgvVxaL/Ap6kkorJ2+C3Tbg36E3DhZuyf Ba0blnhkO/6nXmMpGZCU =5Rst -----END PGP SIGNATURE----- --vbcS76vx8R4bHXi1Pcnd2dKOJAfXuVEQv--