填充区域的矩形选择？

Question

我想要做一些像填充区域，除了我想选择一个矩形区域，并只包裹其中的文本，并让它保持在矩形范围内。有没有办法做到这一点？

Answer 1

编辑：啊，我知道我曾经遇到过这种能力。

cua中的矩形编辑功能提供了此功能。

所以首先启用cua-selection-mode。这是一个在CUA的好东西，而不复制/剪切/粘贴关键变化，因此您可能希望它永久：

(cua-selection-mode 1) 

然后C-RET一个角落，移动点关口对面的角落，和Cq正常填充。 C-RET再次退出矩形模式。

CUA的矩形编辑非常棒。阅读关于它的评论M-x M-xfind-libraryRETcua-baseRET。查找“CUA矩形支持”标题。

原来的答复：

(defun my-fill-rectangle (start end) 
    "`fill-region' within the confines of a rectangle." 
    (interactive "*r") 
    (let* ((indent-tabs-mode nil) 
     (content (delete-extract-rectangle start end))) 
    (goto-char start) 
    (insert-rectangle 
    (with-temp-buffer 
     (setq indent-tabs-mode nil 
      fill-column (length (car content))) 
     (insert-rectangle content) 
     (fill-region (point-min) (point-max)) 
     (goto-char (point-max)) 
     (move-to-column fill-column t) 
     (extract-rectangle (point-min) (point))))))