如何在emacs中撤消fill-paragraph？

Question

我有一个很长的文本文件.有没有简单的方法来"撤消" M-q一段时间之前编写和保存的文件(fill-paragraph)？

例如,我想改变这个:

他们来带我走了,哈哈!
他们要把我带走,ho-ho,嘻嘻,ha-haaa

去有趣的农场.在那里,生活一直都是美丽的,我会
很高兴看到那些漂亮的年轻人穿着干净的白色
外套,他们会带我离开,哈哈!

对此:

他们来带我走了,哈哈!他们要把我带走,ho-ho,嘻嘻,ha-haaa

去有趣的农场.在那里,生活一直都是美丽的,我会很高兴看到那些漂亮的年轻人穿着干净的白色外套,他们会带我离开,哈哈!

Answer 1

使用我的.emacs中的以下内容:

(defun unfill-paragraph ()
  (interactive)
  (let ((fill-column (point-max)))
    (fill-paragraph nil)))

(defun unfill-region ()
  (interactive)
  (let ((fill-column (point-max)))
    (fill-region (region-beginning) (region-end) nil)))

我不能相信,我多年前用谷歌搜索过.

Answer 2

你可以设置fill-columnn一个非常大的数字,并填写.

C-u 10000 C-x f M-x fill-individual-paragraphs

或者您可以使用一些自定义功能:

(defun refill-paragraphs-to-be-one-line ()
  "fill individual paragraphs with large fill column"
  (interactive)
  (let ((fill-column 100000))
    (fill-individual-paragraphs (point-min) (point-max))))