überflüssige Leerzeilen in emacs löschen

Question

M-x flush-lines ^$ 

löscht alle Leerzeilen in einem Puffer. Ich möchte jedoch nur zusätzliche Leerzeilen löschen, d.h. wenn es n aufeinanderfolgende Leerzeilen gibt, möchte ich n-1 löschen und eine behalten.

Ich weiß, dass delete-blank-lines die Aufgabe für die Leerzeilen unter dem Punkt erledigt, aber ich möchte eine einfache Lösung, die für den gesamten Puffer funktioniert.

Haben Sie eine Idee, wie man das machen kann? Ist es insbesondere möglich, die Regex ^$ aus meinem ersten Beispiel so zu ändern, dass sie nur auf die zusätzlichen Zeilen passt?

Answer 1

C-x h M-x replace-regexp RET ^ C-q C-j C-q C-j + RET C-q C-j RET

der den gesamten Puffer markiert und zwei oder mehr Leerzeilen durch eine einzige Leerzeile ersetzt.

Answer 2

Ich weiß nicht, ob es dafür eine eingebaute Funktion gibt, aber Sie können es tun:

M-x nur einzeilig

(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)))

Answer 3

C-x C-o (delete-blank-lines) tut genau das. Sie brauchen nur ein wenig Makro-Magie, um es auf einen ganzen Puffer anzuwenden.