Sky Watch

Unfill-buffer

写了个简单的 elisp 函数 unfill-buffer,用来去掉当前 buffer 的所有单独的换行。

[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]