From bf1f5d1adff8b6b7da34ad7b33aa66fbe66434a5 Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Sat, 25 Sep 2021 13:15:14 -0500
Subject: [PATCH] Advise cycle-spacing

---
 init.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/init.el b/init.el
index 1d1ca39..3c0d2e7 100644
--- a/init.el
+++ b/init.el
@@ -1006,7 +1006,11 @@ specific to most general, they are these:
             tab-width 4
             backward-delete-char-untabify-method 'hungry)
 
-  (:global "M-SPC" #'cycle-spacing))
+  (:global "M-SPC" #'cycle-spacing)
+  ;; http://ruzkuku.com/emacs.d.html#orgc62eb58
+  (:advise cycle-spacing :around
+           (defun cycle-spacing@newlines-by-default (old arg &rest _)
+             (funcall old (if (numberp arg) (- arg) arg)))))
 
 (setup windmove
   (:option windmove-wrap-around t)