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