Advise cycle-spacing

2021-09-25 13:15:14 -05:00 · 2021-09-25 13:15:14 -05:00 · bf1f5d1adf
parent 0858e45bac
commit bf1f5d1adf
1 changed files with 5 additions and 1 deletions
--- 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)