我正试图找到一种方法来自动化/简化以下用例：
我在一个长文件中间的某个地方，我粘贴了一些东西。
然后我想发送/移动当前行(到当前打开的文件的顶部标题(。大多数情况下，这是一些导入/需求功能。
理想情况下，所有这些都应该在不丢失文件中的相对位置的情况下发生(无需手动设置标记(。
我该怎么做？
如果重要的话，我主要在邪恶模式下使用Emacs。
以下是代码：
(defun move-region-to-beginning-of-buffer (beg end)
"Move the region to the beginning of the buffer, then go back."
(interactive "r")
(let ((text (buffer-substring beg end)))
(save-excursion
(delete-region beg end)
(goto-char (point-min))
(insert text))))
通过选择要发送到缓冲区开头的文本(实际上，粘贴后立即标记(来使用它，然后M-x将区域移动到缓冲区RET的开头。您也可以通过通常的方式将此命令绑定到密钥。