New doom/delete-trailing-newlines command
This commit is contained in:
parent
708ad138c8
commit
72d8c5dd56
1 changed files with 16 additions and 0 deletions
|
@ -254,6 +254,22 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
|
||||||
(t
|
(t
|
||||||
(widen))))
|
(widen))))
|
||||||
|
|
||||||
|
;;;###autoload
|
||||||
|
(defun doom/delete-trailing-newlines ()
|
||||||
|
"Trim trailing newlines.
|
||||||
|
|
||||||
|
Respects `require-final-newline'."
|
||||||
|
(interactive)
|
||||||
|
(goto-char (point-max))
|
||||||
|
(skip-chars-backward " \t\n\v")
|
||||||
|
(when (looking-at "\n\\(\n\\|\\'\\)")
|
||||||
|
(forward-char 1))
|
||||||
|
(when require-final-newline
|
||||||
|
(unless (bolp)
|
||||||
|
(insert "\n")))
|
||||||
|
(when (looking-at "\n+")
|
||||||
|
(replace-match "")))
|
||||||
|
|
||||||
|
|
||||||
;;
|
;;
|
||||||
;; Advice
|
;; Advice
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue