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/