supprimer des lignes vides supplémentaires dans emacs

Question

M-x flush-lines ^$ 

supprime toutes les lignes vides dans un tampon. Cependant, je veux seulement supprimer des lignes vides supplémentaires, c'est-à-dire s'il y a n lignes blanches consécutives, je veux supprimer n-1 et en garder une.

Je sais que delete-blank-lines fait le travail pour les lignes vides sous le point, mais je veux une solution simple qui fonctionne pour l'ensemble du tampon.

Des idées comment faire ceci? Surtout, est-il possible de modifier le regex^$ de mon premier exemple pour ne faire correspondre que les lignes supplémentaires?

Answer 1

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

qui marque le tampon entier et remplace deux ou plusieurs lignes vides avec une seule ligne vide.

Answer 2

Je ne sais pas d'une fonction intégrée pour cela, mais vous pouvez faire:

Mx simples lignes seulement

(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-0 (delete-blank-lines) fait exactement cela. Vous aurez juste besoin d'un peu de magie pour l'exécuter sur un tampon entier.