Re: remove extra whitespace on a line

Re: remove extra whitespace on a line

[Markus Triska]

"Herbert Euler" <herberteuler@hotmail.com> writes:

> How about this?
>
> (defun just-one-space-in-current-line (&optional n)
>  (interactive "*p")
>  (save-excursion
>    (save-restriction
>      (narrow-to-region (line-beginning-position)
> 			(line-end-position))
>      (goto-char (point-min))
>      (while (re-search-forward "[ \t]" nil t)
> 	(just-one-space n)))))

Or this:

(defun just-one-space-in-current-line (&optional n)
 (interactive "*p")
 (save-excursion
   (beginning-of-line)
   (while (re-search-forward "[ \t]" (line-end-position) t)
     (just-one-space n))))


All the best,
Markus Triska

Re: remove extra whitespace on a line

[David Hansen]

On Sat, 02 Dec 2006 13:15:33 +0100 Markus Triska wrote:

> "Herbert Euler" <herberteuler@hotmail.com> writes:
>
>> How about this?
>>
>> (defun just-one-space-in-current-line (&optional n)
>>  (interactive "*p")
>>  (save-excursion
>>    (save-restriction
>>      (narrow-to-region (line-beginning-position)
>> 			(line-end-position))
>>      (goto-char (point-min))
>>      (while (re-search-forward "[ \t]" nil t)
>> 	(just-one-space n)))))
>
> Or this:
>
> (defun just-one-space-in-current-line (&optional n)
>  (interactive "*p")
>  (save-excursion
>    (beginning-of-line)
>    (while (re-search-forward "[ \t]" (line-end-position) t)
>      (just-one-space n))))

Both will convert two (or more) spaces after the end of a
sentence into one space.  Narrowing and filling seems to be
the right way to me.

David

Re: remove extra whitespace on a line

[Greg Bognar]

On Sat, 02 Dec 2006 13:55:42 +0100, David Hansen wrote:

> On Sat, 02 Dec 2006 13:15:33 +0100 Markus Triska wrote:
> 
>> "Herbert Euler" <herberteuler@hotmail.com> writes:
>>
>>> How about this?
>>>
>>> (defun just-one-space-in-current-line (&optional n)
>>>  (interactive "*p")
>>>  (save-excursion
>>>    (save-restriction
>>>      (narrow-to-region (line-beginning-position)
>>> 			(line-end-position))
>>>      (goto-char (point-min))
>>>      (while (re-search-forward "[ \t]" nil t)
>>> 	(just-one-space n)))))
>>
>> Or this:
>>
>> (defun just-one-space-in-current-line (&optional n)
>>  (interactive "*p")
>>  (save-excursion
>>    (beginning-of-line)
>>    (while (re-search-forward "[ \t]" (line-end-position) t)
>>      (just-one-space n))))
> 
> Both will convert two (or more) spaces after the end of a sentence into
> one space.  Narrowing and filling seems to be the right way to me.
> 
> David

So this is what I want, isn't it?

(defun just-one-space-in-current-line ()
  (interactive)
  (save-excursion
    (save-restriction
      (narrow-to-region (line-beginning-position)
			(line-end-position))
      (goto-char (point-min))
      (canonically-space-region 
	(line-beginning-position) (line-end-position)))))

Re: remove extra whitespace on a line

[Markus Triska]

Greg Bognar <greg.bognar@gmail.com> writes:

>
> So this is what I want, isn't it?
>
> (defun just-one-space-in-current-line ()
>   (interactive)
>   (save-excursion
>     (save-restriction
>       (narrow-to-region (line-beginning-position)
> 			(line-end-position))
>       (goto-char (point-min))
>       (canonically-space-region 
> 	(line-beginning-position) (line-end-position)))))

I recommend:


(defun just-one-space-in-current-line ()
  (interactive)
  (save-excursion
    (fill-region (line-beginning-position) (line-end-position))))

All the best,
Markus Triska

Re: remove extra whitespace on a line

[David Hansen]

On Sat, 02 Dec 2006 12:40:43 -0500 Greg Bognar wrote:

> So this is what I want, isn't it?
>
> (defun just-one-space-in-current-line ()
>   (interactive)
>   (save-excursion
>     (save-restriction
>       (narrow-to-region (line-beginning-position)
> 			(line-end-position))
>       (goto-char (point-min))
>       (canonically-space-region

He, nice to see that there is always something one didn't know
about Emacs.

With this command you can forget about the narrowing.  It's
doing all you want (well nearly, you still have to mark the
line):

   C-a C-SPC C-e M-x canonically-space-region

> 	(line-beginning-position) (line-end-position)))))


Or your code a bit compressed:

(defun just-one-space-in-current-line ()
  (interactive)
  (canonically-space-region (point-at-bol) (point-at-eol)))

David

Re: remove extra whitespace on a line

[Dieter Wilhelm]

David Hansen <david.hansen@gmx.net> writes:

> On Sat, 02 Dec 2006 12:40:43 -0500 Greg Bognar wrote:
>
>> So this is what I want, isn't it?
>>
>> (defun just-one-space-in-current-line ()
>>   (interactive)
>>   (save-excursion
>>     (save-restriction

...

>
>    C-a C-SPC C-e M-x canonically-space-region
>
>> 	(line-beginning-position) (line-end-position)))))
>
>
> Or your code a bit compressed:
>
> (defun just-one-space-in-current-line ()
>   (interactive)
>   (canonically-space-region (point-at-bol) (point-at-eol)))


Thanks for the aliases!

(= (point-at-bol) (line-beginning-position)) 

-- 
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany

remove extra whitespace on a line

[Greg Bognar]

Suppose     I    have   a   line  like   this.

How can I remove the extra spaces from the line?  So that I end up with
this:

Suppose I have a line like this.

Exactly like fill-paragraph, but I do not want to "fill" the paragraph,
only the current line.  Is there an Emacs function to do this?

Thanks,
Greg

Re: remove extra whitespace on a line

[Chris Menzel]

On Sat, 02 Dec 2006 01:27:00 -0500, Greg Bognar <bognar@christal.elte.hu> said:
> Suppose     I    have   a   line  like   this.
>
> How can I remove the extra spaces from the line?  So that I end up with
> this:
>
> Suppose I have a line like this.
>
> Exactly like fill-paragraph, but I do not want to "fill" the paragraph,
> only the current line.  Is there an Emacs function to do this?

You can set the mark at the beginning of the line, Ctrl-E to the end and
use "fill-region".

RE: remove extra whitespace on a line

[Herbert Euler]

How about this?

(defun just-one-space-in-current-line (&optional n)
  (interactive "*p")
  (save-excursion
    (save-restriction
      (narrow-to-region (line-beginning-position)
			(line-end-position))
      (goto-char (point-min))
      (while (re-search-forward "[ \t]" nil t)
	(just-one-space n)))))

Regards,
Guanpeng Xu


>From: Greg Bognar <bognar@christal.elte.hu>
>To: help-gnu-emacs@gnu.org
>Subject: remove extra whitespace on a line
>Date: Sat, 02 Dec 2006 01:27:00 -0500
>
>Suppose     I    have   a   line  like   this.
>
>How can I remove the extra spaces from the line?  So that I end up with
>this:
>
>Suppose I have a line like this.
>
>Exactly like fill-paragraph, but I do not want to "fill" the paragraph,
>only the current line.  Is there an Emacs function to do this?
>
>Thanks,
>Greg
>_______________________________________________
>help-gnu-emacs mailing list
>help-gnu-emacs@gnu.org
>http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

_________________________________________________________________
Express yourself instantly with MSN Messenger! Download today it's FREE! 
http://messenger.msn.click-url.com/go/onm00200471ave/direct/01/

Re: remove extra whitespace on a line

[Eric Hanchrow]

    Suppose     I    have   a   line  like   this.
    How can I remove the extra spaces from the line?  So that I end up with
    this:

    Suppose I have a line like this.

    Exactly like fill-paragraph, but I do not want to "fill" the paragraph,
    only the current line.  Is there an Emacs function to do this?

Not that I know of, but it'd be very easy to create one with a macro,
or Emacs Lisp.

Just narrow to the line, then fill paragraph.

-- 
I shrivel inside each time [Star Wars] is mentioned.
        -- Sir Alec Guinness

Re: remove extra whitespace on a line

[Dieter Wilhelm]

Eric Hanchrow <offby1@blarg.net> writes:

>     Suppose     I    have   a   line  like   this.
>     How can I remove the extra spaces from the line?  So that I end up with
>     this:
>
>     Suppose I have a line like this.
>
>     Exactly like fill-paragraph, but I do not want to "fill" the paragraph,
>     only the current line.  Is there an Emacs function to do this?
>
> Not that I know of, but it'd be very easy to create one with a macro,
> or Emacs Lisp.
>
> Just narrow to the line, then fill paragraph.

Good idea!  Another idea is:

Mark line:

  C-a C-SPC C-n

Then replace whitespace:

  C-M-% " +" RET " " !

Your idea in comparison (after marking):

  C-x n n M-q C-x n w

-- 
    Best wishes

    H. Dieter Wilhelm
    Darmstadt, Germany

Re: remove extra whitespace on a line

[Perry Smith]

[-- Attachment #1.1: Type: text/plain, Size: 977 bytes --]

On Dec 2, 2006, at 1:02 AM, Eric Hanchrow wrote:

>
>     Suppose     I    have   a   line  like   this.
>     How can I remove the extra spaces from the line?  So that I end  
> up with
>     this:
>
>     Suppose I have a line like this.
>
>     Exactly like fill-paragraph, but I do not want to "fill" the  
> paragraph,
>     only the current line.  Is there an Emacs function to do this?
>
> Not that I know of, but it'd be very easy to create one with a macro,
> or Emacs Lisp.
>
> Just narrow to the line, then fill paragraph.

There is a fill-region-as-paragraph command.  check it out.  The key  
sequence
would be to go to the beginning of the line, mark, go to the end of  
the line, then
fill-region-as-paragraph.

Also, its quicker for you to type ^h a fill (apropos fill) and scan  
the results.

Perry Smith ( pedz@easesoftware.com )
Ease Software, Inc. ( http://www.easesoftware.com )

Low cost SATA Disk Systems for IBMs p5, pSeries, and RS/6000 AIX systems



[-- Attachment #1.2: Type: text/html, Size: 6822 bytes --]

[-- Attachment #2: Type: text/plain, Size: 152 bytes --]

_______________________________________________
help-gnu-emacs mailing list
help-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/help-gnu-emacs

Re: remove extra whitespace on a line

[B. T. Raven]

One method not mentioned:

Highlight line
Menu bar > Edit > Fill


"Perry Smith" <pedz@easesoftware.com> wrote in message
news:mailman.1429.1165067469.2155.help-gnu-emacs@gnu.org...
On Dec 2, 2006, at 1:02 AM, Eric Hanchrow wrote:




    Suppose     I    have   a   line  like   this.
    How can I remove the extra spaces from the line?  So that I end up
with
    this:


    Suppose I have a line like this.


    Exactly like fill-paragraph, but I do not want to "fill" the
paragraph,
    only the current line.  Is there an Emacs function to do this?


Not that I know of, but it'd be very easy to create one with a macro,
or Emacs Lisp.


Just narrow to the line, then fill paragraph.


There is a fill-region-as-paragraph command.  check it out.  The key
sequence
would be to go to the beginning of the line, mark, go to the end of the
line, then
fill-region-as-paragraph.


Also, its quicker for you to type ^h a fill (apropos fill) and scan the
results.


Perry Smith ( pedz@easesoftware.com )
Ease Software, Inc. ( http://www.easesoftware.com )


Low cost SATA Disk Systems for IBMs p5, pSeries, and RS/6000 AIX systems

Re: remove extra whitespace on a line

[roodwriter]

Greg Bognar <bognar@christal.elte.hu> writes:

> Suppose     I    have   a   line  like   this.
> 
> How can I remove the extra spaces from the line?  So that I end up with
> this:
> 
> Suppose I have a line like this.
> 
> Exactly like fill-paragraph, but I do not want to "fill" the paragraph,
> only the current line.  Is there an Emacs function to do this?
> 
> Thanks,
> Greg

I'm not exactly clear on what you want done, but possibly 
M-x canonically-space-region might work.

--Rod
______________________
Author of "Linux for Non-Geeks--Clear-eyed Answers for Practical
Consumers" and "Boring Stories from Uncle Rod." To reply by e-mail
take the second "o" out of the e-mail address.