Added a single-lines-only function to emacs

1 files changed, 8 insertions, 0 deletions

diff --git a/.emacs b/.emacs
index 882b3e9..40ed9e7 100644
--- a/.emacs
+++ b/.emacs
@@ -66,6 +66,14 @@
 ;;	      (add-to-list 'latex-help-cmd-alist (cons key value))))))
 ;;     latex-help-cmd-alist))
 
+(defun single-lines-only ()
+  "Replace multiple blank lines with a single one"
+  (interactive)
+  (goto-char (point-min))
+  (while (re-search-forward "\\(^\\s-*$\\)\n" nil t)
+    (replace-match "\n")
+    (forward-char 1)))
+
 (use-package ace-window
   :ensure t
   :custom