How delete whitespace at END of file automatically when save and exit file?

How delete whitespace at END of file automatically when save and exit file?

[Christian Seberino]

delete-trailing-whitespace deletes whitespace at LEFT but not at
BOTTOM!? How do BOTTOM too?


In other words... if I have a bunch of newlines at the end, e.g.
\n\n\n\n\n

...How replace them with just one \n?

chris

Re: How delete whitespace at END of file automatically when save and exit file?

[Jose A. Ortega Ruiz]

hi,

(defun my-delete-trailing-lines ()
  (goto-char (point-max))
  (delete-blank-lines))

(add-hook 'write-file-hooks 'my-delete-trailing-lines)

warning: untested :)

hth,
jao

seberino@spawar.navy.mil (Christian Seberino) writes:

> delete-trailing-whitespace deletes whitespace at LEFT but not at
> BOTTOM!? How do BOTTOM too?
>
>
> In other words... if I have a bunch of newlines at the end, e.g.
> \n\n\n\n\n
>
> ...How replace them with just one \n?
>
> chris

-- 
An eye for an eye leaves everyone blind. -Mohandas Karamchand Gandhi
(1869-1948)

Re: How delete whitespace at END of file automatically when save and exit file?

[Lute Kamstra]

Jose A. Ortega Ruiz <jao@member.fsf.org> writes:

> (defun my-delete-trailing-lines ()
>   (goto-char (point-max))
>   (delete-blank-lines))
>
> (add-hook 'write-file-hooks 'my-delete-trailing-lines)

In addition,

(setq next-line-add-newlines nil)

helps to prevent inserting empty lines at the end of files.

  Lute

-- 
(spook) => "Compsec USDOJ CIDA"
(insert-file-contents "~/.signature") => (error "`~/.signature' too rude")

Re: How delete whitespace at END of file automatically when save and exit file?

[Christian Seberino]

I tried your function and it worked!! Thanks! Very useful.

Chris


Jose A. Ortega Ruiz <jao@member.fsf.org> wrote in message news:<8765kr995j.fsf@member.fsf.org>...
> hi,
> 
> (defun my-delete-trailing-lines ()
>   (goto-char (point-max))
>   (delete-blank-lines))
> 
> (add-hook 'write-file-hooks 'my-delete-trailing-lines)
> 
> warning: untested :)
> 
> hth,
> jao
> 
> seberino@spawar.navy.mil (Christian Seberino) writes:
> 
> > delete-trailing-whitespace deletes whitespace at LEFT but not at
> > BOTTOM!? How do BOTTOM too?
> >
> >
> > In other words... if I have a bunch of newlines at the end, e.g.
> > \n\n\n\n\n
> >
> > ...How replace them with just one \n?
> >
> > chris

Re: How delete whitespace at END of file automatically when save and exit file?

[Christian Seberino]

Jose

Don't you have to add (delete-trailing-whitespace) to
your write-file-hook??

I made a version based on yours that is almost perfect...

   (defun cs-delete-trailing-whitespace() (interactive)
      (delete-trailing-whitespace)
      (let ((original-pos (point)))
         (goto-char (point-max))
         (delete-blank-lines)
         (goto-char original-pos)))
 
and

(add-hook            'write-file-hooks        'cs-delete-trailing-whitespace)


For some reason these additions make me unable to do save-buffer!!!
I can't do M-x save-buffer anymore!!

M-x save-buffers-kill-emacs still works for some reason.

Chris


Jose A. Ortega Ruiz <jao@member.fsf.org> wrote in message news:<8765kr995j.fsf@member.fsf.org>...
> hi,
> 
> (defun my-delete-trailing-lines ()
>   (goto-char (point-max))
>   (delete-blank-lines))
> 
> (add-hook 'write-file-hooks 'my-delete-trailing-lines)
> 
> warning: untested :)
> 
> hth,
> jao
> 
> seberino@spawar.navy.mil (Christian Seberino) writes:
> 
> > delete-trailing-whitespace deletes whitespace at LEFT but not at
> > BOTTOM!? How do BOTTOM too?
> >
> >
> > In other words... if I have a bunch of newlines at the end, e.g.
> > \n\n\n\n\n
> >
> > ...How replace them with just one \n?
> >
> > chris

Re: How delete whitespace at END of file automatically when save and exit file?

[Thien-Thi Nguyen]

seberino@spawar.navy.mil (Christian Seberino) writes:

> For some reason these additions make me unable to do save-buffer!!!
> I can't do M-x save-buffer anymore!!

see docstring for var `write-file-hooks'.

thi