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

* vc/diff-mode.el (diff-remove-trailing-whitespace): New function.

Browse source
This commit is contained in:
Oscar Fuentes 2012-08-08 00:41:35 -04:00 • committed by Dan Nicolaescu
parent 2d79ec42a2
commit 2c2d9c9cd0
2 changed files with 45 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-08-08 Óscar Fuentes <ofv@wanadoo.es>
* vc/diff-mode.el (diff-remove-trailing-whitespace): New function.
2012-08-08 Fabián Ezequiel Gallina <fgallina@cuca>
* progmodes/python.el Fixed defsubst warning.

41
lisp/vc/diff-mode.el
View file

@ -2016,6 +2016,47 @@ I.e. like `add-change-log-entry-other-window' but applied to all hunks."
;; When there's no more hunks, diff-hunk-next signals an error.
(error nil))))
(defun diff-remove-trailing-whitespace ()
"When on a buffer that contains a diff, inspects the
differences and removes trailing whitespace (spaces, tabs) from
the lines modified or introduced by this diff. Shows a message
with the name of the altered buffers, which are unsaved. If a
file referenced on the diff has no buffer and needs to be fixed,
a buffer visiting that file is created."
(interactive)
(goto-char (point-min))
(let
;; We assume that the diff header has no trailing whitespace.
((modified-buffers nil)
(white-positions nil))
(while (re-search-forward "^[+!>].*[ \t]+$" (point-max) t)
(save-excursion
(cl-destructuring-bind (buf line-offset pos src _dst &optional _switched)
(diff-find-source-location t t)
(when line-offset
(set-buffer buf)
(save-excursion
(goto-char (+ (car pos) (cdr src)))
(beginning-of-line)
(when (re-search-forward "\\([ \t]+\\)$" (line-end-position) t)
(when (not (member buf modified-buffers))
(push buf modified-buffers))
(goto-char (match-end 0))
(push (point-marker) white-positions)
(goto-char (match-beginning 0))
(push (point-marker) white-positions)
(push buf white-positions)))))))
(while white-positions
(save-excursion
(set-buffer (pop white-positions))
(delete-region (pop white-positions) (pop white-positions))))
(if modified-buffers
(let ((msg "Deleted new trailing whitespace from:"))
(dolist (f modified-buffers)
(setq msg (concat msg " `" (buffer-name f) "'")))
(message "%s" msg))
(message "No trailing whitespace fixes needed."))))
;; provide the package
(provide 'diff-mode)