Deleting all succeeding whitespace

Deleting all succeeding whitespace

[Eric Bessette]

I'd like to have a key binding that deletes all of the whitespace after the
current cursor position.  Is there a function in emacs that does this?  Can
I create one, if so, I'd appreciate some help?

Thanks,
Eric

Re: Deleting all succeeding whitespace

[Karl Pflästerer]

On 24 Aug 2003, Eric Bessette <- ebessette@qwest.net wrote:

> I'd like to have a key binding that deletes all of the whitespace after the
> current cursor position.  Is there a function in emacs that does this?  Can
> I create one, if so, I'd appreciate some help?

A function which does nearly what you want is `just-one-space'.  Its
default binding is `M-SPC'.  Maybe you could use its definition as a
start?


   KP

-- 
Der wahre Weltuntergang ist die Vernichtung des Geistes, der andere hängt von
dem gleichgiltigen Versuch ab, ob nach der Vernichtung des Geistes noch eine
Welt bestehen kann.
                   Karl Kraus 'Untergang der Welt durch schwarze Magie'

Re: Deleting all succeeding whitespace

[Kevin Rodgers]

Karl Pflästerer wrote:

> On 24 Aug 2003, Eric Bessette <- ebessette@qwest.net wrote:
> 
> 
>>I'd like to have a key binding that deletes all of the whitespace after the
>>current cursor position.  Is there a function in emacs that does this?  Can
>>I create one, if so, I'd appreciate some help?
> 
> A function which does nearly what you want is `just-one-space'.  Its
> default binding is `M-SPC'.  Maybe you could use its definition as a
> start?

delete-horizontal-space is another useful command, bound to M-\.

-- 
Kevin Rodgers

Re: Deleting all succeeding whitespace

[Sandip Chitale]

"Eric Bessette" <ebessette@qwest.net> wrote in message news:<mailman.871.1061746115.29551.help-gnu-emacs@gnu.org>...
> I'd like to have a key binding that deletes all of the whitespace after the
> current cursor position.  Is there a function in emacs that does this?  Can
> I create one, if so, I'd appreciate some help?
> 
> Thanks,
> Eric
I have this:

(defun delete-forward-backward-horizontal-space (arg)
  "Delete all spaces and tabs forward from point. With argument delete
all spaces and tabs backword."
  (interactive "*P")
  (let ((orig-pos (point)))
    (delete-region
     orig-pos
     (progn
       (if arg
           (skip-chars-backward " \t")
           (skip-chars-forward " \t"))
       (constrain-to-field nil orig-pos t)))))

(global-set-key [(meta ?\  )]              
'delete-forward-backward-horizontal-space)