Re: remove all the whitespace characters from the cursor to the next symbol

Re: remove all the whitespace characters from the cursor to the next symbol

[David Rogoff]

On 2010-05-07 09:18:13 -0700, Sivaram Neelakantan said:

> On Fri, May 07 2010,Kevin Rodgers wrote:
> 
> 
> [snipped 9 lines]
> 
>>> texttexttext{cursor}___
>>> _
>>> ___text
>>> 
>>> where '_' means space character, is it possible to press some known
>>> key sequence to transform the given above to the following form:
>>> 
>>> texttexttext{cursor}text
>> 
> 
> [snipped 22 lines]
> 
> There's also this
> M-SPC runs the command just-one-space, which is an interactive

Cooll - didn't know that one!

remove all the whitespace characters from the cursor to the next symbol

[alex_sv]

Hi all!

Could you please clarify - is it possible to remove all the whitespace
characters including newline from the current cursor position to the
next meaningful symbol using one command?

I mean if our buffer's content is as follows:

texttexttext{cursor}___
_
___text

where '_' means space character, is it possible to press some known
key sequence to transform the given above to the following form:

texttexttext{cursor}text

Thanks in advance!

Re: remove all the whitespace characters from the cursor to the next symbol

[B. T. Raven]

alex_sv wrote:
> Hi all!
> 
> Could you please clarify - is it possible to remove all the whitespace
> characters including newline from the current cursor position to the
> next meaningful symbol using one command?
> 
> I mean if our buffer's content is as follows:
> 
> texttexttext{cursor}___
> _
> ___text
> 
> where '_' means space character, is it possible to press some known
> key sequence to transform the given above to the following form:
> 
> texttexttext{cursor}text
> 
> Thanks in advance!


Replace regular expression might work:

C-M-%
[_C-qC-j]+ Ret
Ret

where _ is space.

You also might me able to use

\s-

(whitespace syntax)
but I couldn't get it to work.

Ed

Re: remove all the whitespace characters from the cursor to the next symbol

[despen]

alex_sv <avshabanov@gmail.com> writes:

> Hi all!
>
> Could you please clarify - is it possible to remove all the whitespace
> characters including newline from the current cursor position to the
> next meaningful symbol using one command?
>
> I mean if our buffer's content is as follows:
>
> texttexttext{cursor}___
> _
> ___text
>
> where '_' means space character, is it possible to press some known
> key sequence to transform the given above to the following form:
>
> texttexttext{cursor}text

Seems to me regular expressions would be too much typing,
I'd go for:

M-z t t

But this seemed to work:

M-% [ space ^q ^j ] * ret ret y

Re: remove all the whitespace characters from the cursor to the next symbol

[Scott Frazer]

On Mar 15, 10:43 am, alex_sv <avshaba...@gmail.com> wrote:
> Hi all!
>
> Could you please clarify - is it possible to remove all the whitespace
> characters including newline from the current cursor position to the
> next meaningful symbol using one command?
>
> I mean if our buffer's content is as follows:
>
> texttexttext{cursor}___
> _
> ___text
>
> where '_' means space character, is it possible to press some known
> key sequence to transform the given above to the following form:
>
> texttexttext{cursor}text
>
> Thanks in advance!

(defun my-delete-whitespace-forward ()
  (interactive)
  (delete-region (point) (progn (skip-chars-forward " \t\n")
(point))))

Re: remove all the whitespace characters from the cursor to the next symbol

[alex_sv]

On Mar 16, 5:56 am, Scott Frazer <frazer.sc...@gmail.com> wrote:
> On Mar 15, 10:43 am, alex_sv <avshaba...@gmail.com> wrote:
>
>
>
> > Hi all!
>
> > Could you please clarify - is it possible to remove all the whitespace
> > characters including newline from the current cursor position to the
> > next meaningful symbol using one command?
>
> > I mean if our buffer's content is as follows:
>
> > texttexttext{cursor}___
> > _
> > ___text
>
> > where '_' means space character, is it possible to press some known
> > key sequence to transform the given above to the following form:
>
> > texttexttext{cursor}text
>
> > Thanks in advance!
>
> (defun my-delete-whitespace-forward ()
>   (interactive)
>   (delete-region (point) (progn (skip-chars-forward " \t\n")
> (point))))

Thank you, this works fine!
I didn't wrote the function because I thought this would be a
reinvention of some known feature I am not aware of.

Re: remove all the whitespace characters from the cursor to the next symbol

[Kevin Rodgers]

alex_sv wrote:
> Hi all!
> 
> Could you please clarify - is it possible to remove all the whitespace
> characters including newline from the current cursor position to the
> next meaningful symbol using one command?
> 
> I mean if our buffer's content is as follows:
> 
> texttexttext{cursor}___
> _
> ___text
> 
> where '_' means space character, is it possible to press some known
> key sequence to transform the given above to the following form:
> 
> texttexttext{cursor}text

;; This is copied from delete-horizontal-space, with
;; skip-chars-forward/backward " \t" replaced by
;; skip-syntax-forward/forward " ":

(defun delete-whitespace (&optional backward-only)
   "Delete all characters around point with whitespace syntax.
If BACKWARD-ONLY is non-nil, only delete them before point."
   (interactive "*P")
   (let ((orig-pos (point)))
     (delete-region
      (if backward-only
	 orig-pos
        (progn
	 (skip-syntax-forward " ")
	 (constrain-to-field nil orig-pos t)))
      (progn
        (skip-syntax-backward " ")
        (constrain-to-field nil orig-pos)))))

;; Now bind it to a convenient key:
(global-set-key "\C-cw" 'delete-whitespace)

-- 
Kevin Rodgers
Denver, Colorado, USA

Re: remove all the whitespace characters from the cursor to the next symbol

[Sivaram Neelakantan]

On Fri, May 07 2010,Kevin Rodgers wrote:


[snipped 9 lines]

>> texttexttext{cursor}___
>> _
>> ___text
>>
>> where '_' means space character, is it possible to press some known
>> key sequence to transform the given above to the following form:
>>
>> texttexttext{cursor}text
>

[snipped 22 lines]

There's also this
M-SPC runs the command just-one-space, which is an interactive
compiled Lisp function in `simple.el'.
It is bound to M-SPC.

(just-one-space &optional n)

Delete all spaces and tabs around point, leaving one space (or n spaces).

Of course it doesn't handle the \n+spaces case.

 sivaram
 --