From 4f55bdf9befbcf5d13dda5e857700db8b6bea70e Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Tue, 16 Dec 2014 01:14:28 -0500
Subject: Add command reduce-to-single-spaces

---
 lisp/init-editing.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lisp/init-editing.el')

diff --git a/lisp/init-editing.el b/lisp/init-editing.el
index 1842ebb..2f4840d 100644
--- a/lisp/init-editing.el
+++ b/lisp/init-editing.el
@@ -63,6 +63,15 @@ special case.
           (setq end (point))))
       (fill-region (or beg (point-min)) (or end (point-max))))))
 
+(defun km/reduce-to-single-spaces ()
+  "Reduce consecutive blank lines to a single line."
+  (interactive)
+  (save-excursion
+    (goto-char (point-min))
+    (while (re-search-forward "\\([ \t]*\n\\)\\{3,\\}" nil t)
+      (forward-line -1)
+      (delete-blank-lines))))
+
 (define-key search-map "s" 'query-replace)
 (define-key search-map "S" 'replace-string)
 (define-key search-map "r" 'query-replace-regexp)
-- 
cgit v1.2.3