这样应该可以:
(defun separedit-fill ()
(interactive)
(let ((separedit-continue-fill-column t))
(with-current-buffer (separedit)
(fill-region (point-min) (point-max))
(execute-kbd-macro (kbd "C-c C-k")))))
UPDATE:
- (execute-kbd-macro (kbd "C-c C-c")))))
+ (execute-kbd-macro (kbd "C-c C-k")))))