procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(delete-trailing-whitespace): Don't delete newlines too.

Browse source
This commit is contained in:
Miles Bader 2000-12-03 02:29:36 +00:00
parent 07c16ec439
commit 5c9b3fac0e
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2000-12-03 Miles Bader <miles@gnu.org>
* simple.el (delete-trailing-whitespace): Don't delete newlines too.
2000-12-02 Stefan Monnier <monnier@cs.yale.edu>
* textmodes/tex-mode.el (tex-start-shell): Obey shell-file-name.

6
lisp/simple.el
View file

@ -232,9 +232,11 @@ This respects narrowing, created by \\[narrow-to-region] and friends."
(interactive "*")
(save-match-data
(save-excursion
(let (eol bol)
(goto-char (point-min))
(while (re-search-forward "\\s-+$" nil t)
(delete-region (match-beginning 0) (match-end 0))))))
(while (re-search-forward "\\s-$" nil t)
(skip-syntax-backward "-" (save-excursion (forward-line 0) (point)))
(delete-region (point) (match-end 0)))))))
(defun newline-and-indent ()
"Insert a newline, then indent according to major mode.