elimina righe vuote aggiuntive in emacs

Question

M-x flush-lines ^$ 

elimina tutte le righe vuote in un buffer. Tuttavia, desidero solo eliminare righe vuote aggiuntive, ovvero se ci sono n righe vuote consecutive voglio eliminare n-1 e mantenerne una.

So che delete-blank-lines fa il lavoro per le righe vuote sotto il punto, tuttavia voglio una soluzione semplice che funzioni per l'intero buffer.

Qualche idea su come procedere? Soprattutto è possibile modificare la regex^$ dal mio primo esempio per far corrispondere solo le righe extra?

Answer 1

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

che segna l'intero buffer e sostituisce due o più righe vuote con una sola riga vuota.

Answer 2

Non so di un costruito in funzione di questo, ma si può fare:

Mx singole linee in sola

(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 (cancella-righe vuote) fa esattamente questo. Avrai solo bisogno di un po 'di magia macro per eseguirlo su un intero buffer.