[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Patch to change just-one-space
From: |
Stefan Monnier |
Subject: |
Re: Patch to change just-one-space |
Date: |
Mon, 22 Nov 2010 17:16:07 -0500 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux) |
> Attached is a bzr bundle which does this. If the user passes the
> argument -N, it will remove any whitespace characters (spaces, tabs,
> carriage returns, newlines) and leave N spaces. Unfortunately I
> couldn't think of a good way to make e.g. "M-- M-0 M-SPC" leave 0
> spaces.
Any objection to such a change? Removing newlines sounds OK to me, but
I don't use just-one-space, so I don't have a good feeling for what
other useful meaning could be used for a negative argument.
Stefan
> Deniz Dogan
> # Bazaar merge directive format 2 (Bazaar 0.90)
> # revision_id: address@hidden
> # w839hdjykp7buf2h
> # target_branch: http://bzr.savannah.gnu.org/r/emacs/trunk/
> # testament_sha1: 6a061e3480db7d5854f2d1d911820f89d5e26063
> # timestamp: 2009-12-31 21:52:56 +0100
> # base_revision_id: address@hidden
> #
> # Begin patch
> === modified file 'lisp/simple.el'
> --- lisp/simple.el 2009-12-12 17:01:03 +0000
> +++ lisp/simple.el 2009-12-31 20:52:48 +0000
> @@ -768,10 +768,14 @@
> (constrain-to-field nil orig-pos)))))
> (defun just-one-space (&optional n)
> - "Delete all spaces and tabs around point, leaving one space (or N spaces)."
> + "Delete all spaces and tabs around point, leaving one space (or
> +N spaces). If N is negative, deletes carriage return and
> +linefeed characters as well."
> (interactive "*p")
> - (let ((orig-pos (point)))
> - (skip-chars-backward " \t")
> + (let ((orig-pos (point))
> + (skip-characters (if (< n 0) " \t\n\r" " \t"))
> + (n (abs n)))
> + (skip-chars-backward skip-characters)
> (constrain-to-field nil orig-pos)
> (dotimes (i (or n 1))
> (if (= (following-char) ?\s)
> @@ -780,7 +784,7 @@
> (delete-region
> (point)
> (progn
> - (skip-chars-forward " \t")
> + (skip-chars-forward skip-characters)
> (constrain-to-field nil orig-pos t)))))
>
> (defun beginning-of-buffer (&optional arg)
> # Begin bundle
> IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWeooGREAAcRfgEwQUGf/91Yj
> AAS////wUAQGu3aGd5CrKOCUQUzUyMARoaU8mNT1PUmmjDUGgykxJsm0T0immRoZBoDIAADEIJoS
> n6m1M0p6NGo0NqeoNGTQGgykZGpmp6npPUNqAAAAAACSiYhT9JqfqaRsk9TEep5QeoAAA4KNpFA/
> OZVTa9ijbGljtPvOIP2RNudsMnX0gjBNtOp3z5+3zK/0bH6TKKqRHqlsj9ItDy5jRy1LFXD6mnso
> nPu1NM3QdT9keXpHh2z5Vw8Wxxi7AMGDed7wN9RwrxzG2y3c5NOaNiYgomK+Ksx8ZjomErKZd+ix
> s6d6TuIfxInIIUuV+sxXMLHA1mujyEzpBDiUSm+TaVMluhQAzoGwg98QH7wzHsRORBgykZDIRKHV
> TCAn6/r6q5C3xu4TeXP0AumwgRgLVuPb5IWapJVN520O1wtOcIJVGZL7M5B8yFYLEB4QVoB0gwMU
> KBS2gCM15AJmLg+kGpmk2ybWJsmDgJmWBuaMUCuBmg2GJo51BEwZoCnSpaxqg36DjcLhQNbJkAfv
> NOJYLc+mi7kyWR3GqoGFJuDzZiwSecZqpXWaLdlCxrTZqDKPQLZMh7Bc5EMBvHKC3jU6pG+VMAcK
> jmbAPNuH6DJGuZHgdA11oOOrMdMFyDsOCAtRbrhaKiWMwaTuNyo0p0sqMXcUYqikKgTqsfln9hy2
> 3+/IOu7x4czMmV1AEPOPhK9WK9ZVjUVj0OvBo/FE3ODRZWZR18i5Uh1CENx18LwtEfLtNlfcBO5Z
> agxJIcdLhpUqCWXPgXGo3Z3YG6wgL9W8VBJ5gxXbKnsCD3DOZIi0ItoLBdos01BNvdwK9caaEpc3
> sa+sSedWQ2S3E7C2e10ZyPsJeiSZ7k54dFzb4bHK4I8LmcYsaIJl211EzNUAzqa6hU1VQCidfvUE
> E0Jphisnww78czKVzkStxaiorbbclDfqYtcClNKD0a79+WQnAwvcxLScwHluISHLy7YKdM1aQyAp
> IizF9CMbswvZU3aDBaxVvmki80UqWMf6nFmSR+t5CsQvR5SmzqHOhnS8l33aIBEhCMIeEhYBO6Eh
> Wj2cYaZ0WrvFoUOByZuEMaEAa0Jrkhh0HOQ1/TEOH91toI5k7yyBG81nfiNKXzkJHHU0Xf2K1QkT
> DQ5sqAQFAZj10AE+ZaAiEijw6preqs9qVpsBUhXRnQWRBlSpZMmyfxckUNvFMFWtIwKdLHCVtUqe
> Xadlt25OdHAgDmwwRCu4MHzrxqBjsfKgmAgpyQFE97s2yYgQhyNNkajnhx8FeA+3oCFh1qUVQtrV
> 4HJNlpojk7v6C6U3w7AHkO67TbgGh8QLwHPsOHIXx2FDjz8QOuykrYM/txeg8zQ5Y4AaQapkFNTa
> XG6YMgBFgf/i7kinChIdRQMiIA==