*
(defun delete-blank-lines-region (start end)
(interactive "*r")
(save-restriction
(narrow-to-region start end)
(save-excursion
(goto-char (point-min))
(while (and (scan-buffer "^$" :no-dup t :regexp t)
(not (eobp)))
(delete-blank-lines)))))
update : 2006-06-12 (Mon) 15:41:39
Source of Nothingness
NANRI
NANRI