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