By mw @ 2007-07-20 18:22

[coolcode lang="lisp" download="unfill-buffer.el"] (defun unfill-buffer () "Unfill current buffer." (interactive "") (setq m (point-marker)) (beginning-of-buffer) (while (re-search-forward "\([^ ]+\) * *\([^ ]\)" nil t) (replace-match "\1\2")) (set-marker m 0 (current-buffer))) [/coolcode]