From 1d574bf3aaa6f9ed1795c1119c953899d3b94d09 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 29 Jul 2015 12:31:42 +0200 Subject: [PATCH] Smarter delete-traiing-whitespace --- core/core-editor.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/core/core-editor.el b/core/core-editor.el index 329f35e12..77ddf4798 100644 --- a/core/core-editor.el +++ b/core/core-editor.el @@ -69,6 +69,14 @@ (add-hook! before-save 'delete-trailing-whitespace) (add-hook! eldoc-mode (diminish 'eldoc-mode " ?")) +(defadvice delete-trailing-whitespace (around delete-trailing-whitespace-ignore-line activate) + "Don't delete trailing whitespace on current line, if in insert mode." + (let ((spaces (current-column)) + (first-col (1+ (save-excursion (evil-first-non-blank) (current-column))))) + ad-do-it + (when (= spaces first-col) + (insert (make-string (abs spaces) ? ))))) + ;; Line wrapping (add-hook! text-mode 'narf|enable-hard-wrap) (add-hook! prog-mode 'narf|enable-comment-hard-wrap)