[nongnu] elpa/ws-butler 246e5655ab 23/64: Fix never removing blank lines from EOF.

[Stefan Kangas]

branch: elpa/ws-butler
commit 246e5655ab6b598668a46fb71288b402aaaeb321
Author: Le Wang <le.wang@agworld.com.au>
Commit: Le Wang <le.wang@agworld.com.au>

    Fix never removing blank lines from EOF.
    
    - #8
---
 ws-butler.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/ws-butler.el b/ws-butler.el
index f2fd5d300e..09d2f00c01 100644
--- a/ws-butler.el
+++ b/ws-butler.el
@@ -76,10 +76,15 @@
    ;; there is no blank line and there needs one, we add it.
    (goto-char (point-max))
    (skip-chars-backward " \t\n\v")
-   (ws-butler-clean-region (point) (point-max))
-   ;; we try to make as few buffer modifications as possible
-   (when (looking-at "\n\\(\n\\|\\'\\)")
-     (forward-char 1))
+   (let ((saved-point (point)))
+     (ws-butler-clean-region saved-point (point-max))
+     (goto-char saved-point)
+     ;; we try to make as few buffer modifications as possible
+     ;;
+     ;; We refuse to remove final-newline regardless of the value of
+     ;; `require-final-newline'
+     (when (looking-at "\n\\(\n\\|\\'\\)")
+       (forward-char 1)))
    (when require-final-newline
      (unless (bolp)
        (insert "\n")))